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ABSTRACT 

Each inventory manager at the Aviation Supply Office Philadelphia, PA is presently 
required to manage approximately 700 line items. To allow the inventory manager a 
more efficient method of reviewing and using the data and reports from the Uniform 
Inventory Control Point (UICP) computer system, a distributed computer system is 
necessary. By downloading the the appropriate inventory data from UICP to a local 
computer system, a decision support system (DSS) can be be implemented using existing 
off the shelf hardware and software. The ability to replace the present copious paper 
reports with concise computerized information and import that data into electronic 
spreadsheets for further analysis can greatly improve the inventory manager’s 
effectiveness. To this end, this thesis provides inventory managers at ASO with access 
to the following functions: 

• Interactive access to the main UICP database. 

» The ability to use UICP data with a decision support system. 

• A user interface that is easy to understand and learn. 

• A local data base which supports working group requirements. 

• Basic office automation. 

This thesis will cover the selection of the hardware and software, data identification 
and management and DSS development. A prototype system called the IM Workstation 
w'as developed for this thesis and used to produce the thesis document. COBOL and 
ALIS ELF macro program listings are provided. 
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I. INTRODUCTION 



A. BACKGROUND 

Each inventory manager at the Aviation Supply Office, Philadelphia, PA is 
presently required to manage approximately 700 line items. The inventory manager’s 
job is to ensure that sufficient consumable and repair parts are available in the Navy 
Supply System to satisfy requests for material from both end users and stock points. 
The present management system they use is management by exception, which is aided to 
a great extent by the Uniform Inventory Control Point (UICP) computer system 
resident on an IBM 3090 mainframe. The UICP system performs various automatic 
inventory reviews, manages the current stock status, and contains various technical and 
supporting data needed to manage and procure the spare parts. UICP produces various 
formal printed reports. These reports are provided to the inventory manager for his 

or her review and as a trigger to perform specific actions ^ . 

ASO Inventory Managers have access to the UICP database via IBM 3270 series 
terminals. The UICP database structure contains approximately four thousand data 
elements (DENS). Thirty-nine individual data retrieval programs are available to the 
item manager under the A02 information retrieval application [Ref. 1 ]. Appendix A 
contains a complete listing of all the A02 programs. Each program acts as an 
independent retrieval application, although there is a large amount of data element 



1 Validate proposed buy quantities, review if items are in long supply. 
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redundancy between these thirty-nine programs. For example DEN C003 (Cognizance 
Symbol) is used in 6 different programs (AS, BK, CD, CH, EF, NA)2. 

The usefulness of the A02 programs are further limited by the cryptic output to 
IBM 3270 terminal screen displays which use data element (DEN) numbers rather then 
english descriptions of the data Fields. Figure 1 shows the screen display from a typical 
A02 program. For example, instead of showing "Cognizance Symbol" or the commonly 
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Figure 1 Example of an A02 Application, Display Screen. 



^ Two letter abbreviations are used to refer to the A02 programs. These abbrevia- 
tions refer to the original UICP COBAL batch retrieval programs. 
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used term "COG" on the display, the data element number ”C3"3 is shown. Further- 
more there is no way for an item manager to save this output information on-line or 
to move it to other computer programs (e.g., a spreadsheet or database type program) 
for analysis. The only procedure available to the managers is to press the print screen 
button on the IBM 3270 terminal which will cause an image of the screen to be sent to 
a local printer. If the program has multiple screens, the manager has to print each 
screen individually. A problem exists for the managers because between 10 to 16 of 
them share a single printer, and the print screen process doesn’t send screen images to 
a print queue. The printed output from the various managers thus becomes intermixed, 
requiring a time consuming identification and hand sorting process [Ref. 2], 

The formal UICP printed reports are handled by the inventory manager in the 
method shown in Figure 2. When the inventory manager receives a report generated by 
the UICP program, he or she needs to access the on-line A02 program to retrieve 
various management information which isn’t provided by the UICP report, or which 
the manager believes have to have aged since the UICP report was generated. The item 
manager then reviews the available information and makes his or her decisions. Since 
many of the item managers decisions are based upon knowledge gained from the various 
senior managers who trained them, there is a lack of consistency in the decision making 
process applied to the UICP reports. Additionally the present manual methods make it 
extremely difficult for the item manager’s superiors to ensure that the decisions are in 
accordance with the inventory control point’s policy. 
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C3 is used instead of the actual data element name C003 
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After the item manager’s decisions are made, the printed reports are annotated to 
reflect their decisions and then forwarded to a data entry clerk who enters the data 
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into the UICP program. The system is updated and the management cycle is started 
again when new exception reports are generated. 

As previously mentioned, the inventory manager presently does not have access to 
a computerized decision support system (DSS). The inventory manager can access the 
UICP database outside the A02 programs and perform ad hoc queries using a database 
package called FOCUS, but the process is extremely slow and requires computer 
programming skills. A paper report can be requested, but the report data can not be 
imported into a DSS for analysis. A DSS could be used to evaluate the report’s data 
or ensure the manager’s actions are consistent and conform to standard operating 
procedures. 

Russell L. Ackoff of the University of Pennsylvania, in his article, "Management 
Misinformation Systems," [Ref. 3:p. 147] stated "My experience indicated that most 
managers receive much more data (if not information) than they can possible absorb 
even if they spend all of their time trying to do so. ... I have seen daily stock status 
reports that consists of approximately six hundred pages of computer printout. The 
report is circulated daily across managers’ desks." This is an almost exact corollary to 
ASO’s inventory managers’ situation. They have access to over 4,000 data elements 
via thirty-nine applications, plus several immense printed reports. The reports contain 
a large amount of the data available from the on-line applications. "Unless the 
information overload to which managers are subjected is reduced, any additional 
information made available by an MIS cannot be expected to be used effectively." [Ref. 
3:p. 148]. In the case of the inventory managers, the volume of available information 
and the difficulty of extracting and working with the data can be counter productive. 
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B. THESIS OBJECTIVE 



To allow the inventory manager a more efficient method of reviewing and using 
the data and reports from UICP, a distributed computer system is necessary. By 
downloading the appropriate inventory data from the main database to a local 
computer system, a decision support system can be implemented using existing off the 
shelf hardware and software to assist the inventory manager. The ability to replace the 
present copious paper reports with concise computerized information and import that 
data into electronic spreadsheets for further analysis can greatly improve the inventory 
manager’s effectiveness. To this end, this thesis provides a limited number of inventor)' 
managers at ASO with access to the following functions: 

• Interactive access to the main UICP database. 

• The ability to use UICP data with a decision support system. 

• A user interface that is easy to understand and leam. 

• A local data base which supports working group requirements. 

• Basic office automation. 

• Action tracking and management information. 

• Electronic mail. 

A prototype system called the "IM Workstation" was developed for this thesis. 

C. APPROACH 

To accomplish the thesis objective described above, work was done in the areas 
listed below. Each of these areas will be briefly described in the remainder of this 
chapter, and more thoroughly covered in subsequent chapters. 

• Hardware selection 

• Software selection 

• Data identification and management 

• Program and decision support system development 
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• System integration 

• On site testing 

For each area I reviewed the present environment and tried to find the best 
combination of hardware and software that would support the desired functions. To 
understand the present environment I traveled extensively to the Aviation Supply Office 
(ASO) in Philadelphia, PA and worked with various ASO personnel. The result of these 
trips was an understanding of the inventory manager’s present working environment. 
In order to design a decision support system which would meet the needs of the item 
managers at ASO, I had to learn about the types of information they use to make 
decisions, and determine how much of this information was available from UICP. This 
insight into the inventory manager’s needs can be merged with computer technology 
and can be used to improve their efficiency and the quality of their work environment. 
D. METHODOLOGY 

The following list describes the methodology which was used to approach each of 
the areas mentioned in the previous section: 

1 . Hardware Selection 

Study the ASO environment and select the best hardware type that would 
support the overall requirements. 

2. Software selection 

Review the available integrated office automation software and select the one 
which best supports the requirements of: 

• Access to the UICP database from within the office automation software. 
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• Ability to import a subset of the UICP database and use the data within the 
office automation software to form a decision support system. 

• A user interface that is as easy to understand and learn as the Xerox PARC / 
Open View interface standard. (The Xerox standard is the industry accepted 
standard. Examples of systms using this standard are the Apple Macintosh, 
Microsoft Windows, IBM Presentation Manager.) 

• Electronic Mail which can be transmitted between the inventory managers and 
other groups and organizations. 

3. Data identification and management 

Interview inventory managers and analyze the UICP data products they use. 
Determine which data elements, provided by the UICP products, they need to perform 
their duties. Learn how the inventory managers process the information they obtain, 
and how they use it to make decisions. 

4. Program development 

Use the selected software product to develop the DSS. 

5. System integration 

Integrate the IM Workstation into the IBM 3090 mainframe environment. 
Provide the following telecommunications access: Remote Job Entry (logical unit one 
(LU 1); TTY terminal access (LU 2); and Block terminal (LU 6.2). 
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II. DECISION SUPPORT SYSTEMS 



A. INTRODUCTION 

To understand what a decision support system (DSS) is and how it could be used 
to support the ASO inventory manager we will discuss the: 

• Theoretical framework. 

• Components of the DSS. 

• System Integration. 

• Measures of effectiveness. 

B. THEORETICAL FRAMEWORK 

In designing a DSS, usefulness and ease of use are the most important characteris- 
tics. Usefulness is the degree to which a DSS assists a decision maker in performing 
his/her tasks. Does the DSS allow the decision maker to be more efficient and make 
better, more effective decisions? Ease of use is important because no matter how 
good a DSS is, if it is difficult to use or not understood, the targeted users will not 
use it or will not trust it. Sprague and Carlson present a framework for designing a 
DSS that considers this user-oriented approach [Ref. 4], They characterize a DSS as a 
computer based system which helps decision makers confront ill-structured problems 
through direct interaction with data and analysis models. Sprague and Carlson’s 
framework uses Representations, Operations, Memory Aids, and Control Mechanisms 
to define the capabilities of the DSS. The DSS should provide the capabilities of a 
Dialog component, a Data component and a Model component (Figure 3). Each of 
these components will be discussed later in this chapter. 



9 




I 

I 

I 



USER 



Figure 3 Components of a DSS 

The current system used by inventory managers somewhat resembles Mason’s 
databank design as shown in Figure 4 [Ref. 5]. The information system provides 
reports based upon the data it is analyzing. The decision maker is then required to act 
upon the reports based upon his own experiences and knowledge. The drawbacks of 
the databank type of system shown in Figure 4 are evident in the current inventory 
system. Reams of paper, containing much irrelevant data, are produced by the UICP 
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program on the IBM 3090. The inventory manager’s response, to this volume of 
information, is to ignore much of the data and manage by exception. Decision making 
tasks are performed by the inventory manager without the aid of an automated 
support system and the quality of his or her decisions are a function of his or her 
experience. While procedures and guidelines are provided to the inventory manager, in a 
manual system their personal preferences and individual experience strongly influence 
how' they solve the problem. These decisions may lack consistency when you look at 
inventory managers as a group. Tversky & Kahneman state that how choices/decisions 
are framed for the decision maker can influence his or her decision [Ref. 6:pp. 
453-458]. 




Figure 4 Mason’s Databank Design 



The DSS will make predictions, draw inferences, evaluate, and recommend a choice of 
action. The DSS can have choices couched in such a way that inventory managers make 
their decision in accordance with standard operating procedures rater than their own 
preferences without realizing it. For the inventory manager (IM) these decisions could 
be in the areas of quantity to buy or to issue. While the DSS can assist the inventor)’ 
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manager in making a correct decision, taking action will still be the responsibility of the 
decision-maker. 

In the current system, the supervisor also does not have an effective method of 
determining if the inventory manager is making efficient use of the data provided. By 
the time a supervisor realizes that one of his or her managers has been ignoring the 
data from the reports, the damage is done and could take years to correct. The same 
computer that provides the DSS for the inventory manager could also provide a DSS 
for the supervisor that is linked to the same database. This supervisory level DSS could 
be used to monitor the inventory manager. This monitoring would ensure that the 
inventory manager is taking advantage of the data provided from the mainframe models 
through the DSS. For example, a supervisor could check to see if inventory manager’s 
are using the DSS to review stock numbers called out by the supply demand review (a 
UICP mainframe model). 




Figure 5 Mason’s Decision-Making System 



The DSS for inventory managers, proposed in this thesis, is similar to Mason’s 
decision-making system [Figure 5]. "A DSS does not replace or compete with other 
systems; instead, it extracts from other systems the information that is essential to 
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the process of decision-making." [Ref. 7:pp. 115-121], For the inventory manager, 
the DSS provides a method of accessing the data on the mainframe and receiving the 
outputs in an electronic form (as opposed to paper) such that the information can be 
further analyzed. For example, the DSS would allow the importing of data generated by 
the supply demand review (SDR) into a preformatted spreadsheet. This spreadsheet 
would allow the manager to adjust variables such as expected demand and examine the 
effects of inventory levels on expected buy quantities. Once the manager decided upon 
the appropriate quantity to buy, the DSS system could generate a procurement request 
and forward it via a network for action. This action could trigger several reports that 
would be added to the inventory manager’s electronic stock number notebook. 

An interface between the mainframe models and the DSS would provide a action 
tracking system that would act as a holding file for reviews recommended by the 
models but not yet conducted by the inventor}' manager. This file would show the 
inventory manager what work is still outstanding and would also allow the supervisor 
to monitor reviews that have been in the action tracking system for an extended period 
of time without action having been taken. Thus this DSS would serve multiple levels of 
users. The most important feature of this DSS is that managers are allowed to work 
interactively with the data. The DSS will assist them in making decisions but will not 
replace their judgment. As discussed by Keen, if a task can be completely automated, 
there is no need for the manager to be involved at all with the decision process. A DSS 
should be used with "semi-structured" tasks in which some functions can be best 
handled by the computer system and others by the manager [Ref. 8:pp. 88-99], 



13 



C. COMPONENTS OF THE DSS 



As shown in Figure 3, the three Components of a DSS, as defined by Sprague and 
Carlson, [Ref. 4] are: 

• Dialog 

• Data 

• Models 

The union of these three components provides the necessary interface between the user 
and the master data base. Not only is this an extraction of data from the mainframe, 
but it is also a methodology for how the data is effectively used once it is at the 
user’s disposal. Each of the three components for this specific DSS will be addressed in 
turn. 

1. Dialog Component 

An important part of the interface is the dialog component. The dialog compo- 
nent is concerned with how the information is displayed to the user, and how the user 
interacts with the DSS. Alexander considers a well-designed, graphical output to be 
one of eight critical success factors in developing an effective DSS [Ref. 7:pp. 
1 15-121], A graphical user interface such as that recommended by Xerox’s Palo Alto 
Research Center (PARC) will provide the user with representations that are easily 
understood. Xerox’s recommendations for the "Star User Interface" included [Ref. 
9:pp. 242-282]: 

• Icon based user interface. 

• Black letters on a white screen. 

• Multiple Windows. 

• Mouse based pointing system 
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• What you see is what you get (WYSIWYG) display. 

• Standardized interface between various applications. 

• Pull down menus. 

This standard has been best implemented in the Apple Macintosh series of comput- 
ers. This dialog interface is also available on several other systems such as Digital 
Research’s GEM operating system and ALIS, a multi-user, UNIX based office automa- 
tion package. In order to accommodate multiple users and the varying skill and 
experience levels of the users, an effective and easy to use DSS should be chosen. This 
will allow the user to select the options he or she prefers or requires. For this reason, 
the DSS used in this thesis was the ALIS software which has the Xerox "Star User 
Interface". 

ALIS was also selected because it has the necessary tools to build and support a 
DSS. It contains the following functions: 

• Word Processing 

• Spreadsheet 

• Database 

• Graphics 

This system allows the spreadsheet and database to be pre-scripted 1 to import 
mainframe data and provide the tools for the inventory manager to analyze the data 
and make a decision. The interrelationship of data and models to the dialog component 
will be discussed in greater depth in the following sections. Chapter 3 will discuss the 
selection of the ALIS software system in more depth. 



1 The attributes and design of a standard document can be predefined and saved for 
future use. 
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2. Data Component 

The next component to consider is the data component. In the current system, 
the data resides on an IBM 3090 mainframe. While this mainframe can hold a huge 
volume of data, the item manager must be able to easily determine which data items are 
needed and to obtain this selected data easily. With the UICP system containing over 
4,000 data elements, the complexity associated with extracting the data from UICP 
means it is only possible for individuals with extensive programming experience to 
access the data. Access to this data is only available to the item manager via the limited 
A02 application programs. 

In building a DSS, Keen [Ref. 8:pp. 88-99] suggests asking some key questions 
such as: 

• What is the decision or task? 

• What information is used? 

• In what way is the information used to reach the decision or task? 

Interviewing the inventory managers will hopefully reveal the information needed to 
build the DSS. The objective of the interview is to determine what data the inventory 
managers use, what data they perceive that they need but do not have, and what data 
they perceive that they need but, in reality, do not use. This could be accomplished by 
interviewing a group of inventory managers. They would be asked to describe: 

• What procedures they do and actions they take. 

• What data and reports they use in performing those procedures. 

• What data and information they use from the present reports or print-outs. 
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By including both open-ended questions, directed questions, and observations, we 
would hope to determine most of their needs for data, while at the same time avoiding 
some of the erroneous assumptions described by Ackoff [Ref. 3:pp. 147-156] such as: 
more data is better and the manager needs what he wants. 

But interviewing the inventory manager is not an end in itself. While the 
inventory managers have stated how they work with and use the data, their actions 
might not be in accordance with present policy. As discussed by Huber [Ref. 10:pp. 
567-579], care must be taken not to reinforce a lack of procedural compliance that 
could be introduced into the system from these interviews. The end result of the DSS 
design process is to develop a system that blends the managers cognitive style with 
proper procedure. The resulting DSS presents a computer based system that is 
procedurally correct but representative of the manager’s cognitive style. 

Once the total spectrum of mainframe data elements is boiled down to a usable 
kernel, day to day data needs and exception data from the models can be identified. 
The goal is to generate a data file each night that can be down loaded to the inventory 
manager’s working group computer. This data file should be able to provide 85 to 90 
percent of the daily data requirements of the inventory manager. The mainframe 
models generate items for review, e.g., levels and supply demand review (SDR). Present 
UICP methods take the few, new pieces of information and, using day to day data, 
generate a printed report. The DSS will only require the new data elements and the 
merging will occur at the inventory manager’s level. This will be a much more efficient 
use of mainframe computer resources. 
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Through the use of a multi-user / multi-tasking minicomputer the inventory 
manager will be able to use the DSS to access this data and use it more efficiently. Not 
only does this method of data movement reduce interactive queries on the mainframe 
but it also provides the inventory manager with a structured way to manipulate the 
data. 

3. Model Component 

The third component in the design is the model component. The interviews, in 
addition to determining the data requirements, will provide an insight into how the 
inventory managers perform their tasks and, hopefully, how the processes involved 
could be improved and made more effective. Gorry and Scott Morton [Ref. 1 1 :pp. 
55-70] suggest that the types of models to use will vary with the skill and experience 
level of the manager, as well as their training and background. The type of operations 
(and models which will perform these operations) can be determined through the 
interviews. 

As part of building the DSS model, the inventory managers must understand it 
or have an opportunity to review an explanation of its functions. Brennan and Elam 
[Ref. 12] suggest that the DSS must be able to answer the "why" as well as the "what 
if 1 '. They also suggest that the output be presented conceptually rather then in a 
data-oriented way to assist in the understanding of the information being presented. 
An example of information being presented in a conceptual, rather then a data oriented 
style would be the DSS providing a line graph plotting buys versus demand. The graph 
would replace a report with the two columns of numbers showing buys and demands. 
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Tversky and Kahneman [Ref. 6:pp. 1 124-1 131] stress that it is not enough to 
give the manager the information he needs. The information must be presented in a 
such a way as to overcome misconceptions, biases and fallacious thinking. Further, the 
manager must trust the DSS. The end result will be more consistent than that 
obtained with the inventory manager using printed report, pencil and calculator to 
compute requirements. 

It is clear that the success and effectiveness of this DSS is greatly dependent 
upon its ability to elicit information from the inventory managers. It is, of course, 
important to know what data is required by the managers. This data forms the data 
base component. How and in what way the data must be manipulated is also important 
and forms the model base component of the system. 

In the current system, data is available, but access is slow and inflexible. The 
data and models which are necessary for the inventory manager to perform his job need 
to be accessible quickly and easily. To avoid overwhelming the inventory manager with 
more data and more options than he can realistically use, some limits must be placed on 
what is made available. It is not feasible to provide all the information that the 
manager might ever need. Rockart [Ref. 13:pp 81-93] suggests a methodology in 
which chief executives define their needs by clarifying what they view as critical success 
factors. A similar approach can be taken here to clarify the needs of the inventory 
managers. 

D. SYSTEM INTEGRATION 

Once the components of the DSS have been defined, the shell to provide system 
integration must be specified. The shell will provide the tools to implement the DSS 
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and in this case, also perform Office Automation (OA). While the DSS will assist the 
inventory manager in making more effective decisions, much of the inventory manager’s 
day is spent doing more mundane tasks such as preparing memos and letters, perform- 
ing quick "what if" analysis, and maintaining their inventory manager’s. OA consisting 
of word processing and spreadsheet and database capabilities which will reduce the 
length of time these tasks require and improve the quality of the output from these 
activities. 

The DSS program is integrated into the OA system. The inventory manager 
perceives the DSS as another application choice like the existing applications. Therefore, 
in addition to a word processing, a spreadsheet and a personal database, a choice of 
Inventory assistance would be available. The more the DSS appears as a part of the OA, 
the less chance that the inventory managers will perceive the system as an attempt by 
management to control them, and more as a tool to assist them. Despite the fact that 
the DSS will actually yield the greatest improvement in the inventory manager’s 
effectiveness, the inventory manager will perceive OA as being most helpful. This is due 
to the dislike that inventory manager’s have for the disproportional amount of time 
spent performing these mundane secretarial tasks. Once this burden is reduced, the 
benefits provided by the inventory assistance applications will be realized. 

A final capability provided by the OA system would be an electronic mail system 
(E-Mail). The present inventory control point (ICP) mail system is a separate applica- 
tion. In order for an inventory manager to send or receive mail on the current 3270 
terminals, they must leave the application they are in and start the E-mail package. The 
E-mail on the IM Workstation would allow the inventory manager to pause, send or 
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receive mail, and then resume their work. Not only is less time wasted, but the 
inventory manager’s thought process is not interrupted. Additionally the integrated 
system would allow memos, letters, spreadsheet, and data files created by the system 
to be mailed. 

E. MEASURES OF EFFECTIVTENESS 

Another item that must be considered for this, or any, DSS is the measure of its 
effectiveness. Some DSS benefits summarized by Keen [Ref. 14] include: fast response 
to unexpected situations, ability to carry out ad hoc analysis, control, cost savings, 
better decisions, time savings, and making better use of data resources. While some of 
these measures of effectiveness are difficult to quantify and even harder to quantify in 
terms of a return on investment, I believe there will be measurable benefits associated 
with an inventory management DSS. The effectiveness could be measured by: 

• Inventory manager satisfaction with the workstation. 

• Number of line items managed per inventor)' manager. 

• Number of exception actions per inventor)' manager. 

• Inventory manager product quality. 

• Satisfaction of higher level managers and the inventor)' manager’s supervisors. 

• Changes which occur in the quantity and nature of information transferred 
between people in the organization. 

Satisfaction with the DSS perhaps cannot be quantified, but certainly it must be 
measured in some method. Over the long term, maybe employee turn-over may provide 
some indications of satisfaction with the system. 
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IIL HARDWARE AND SOFTWARE SELECTION 



A. INTRODUCTION 

The selection of the correct hardware and software to implement the DSS was 
one of the most challenging areas of this thesis. While ASO had already planned a 
hardware architecture, as discussed below, it was chosen several years ago and didn’t 
contain all the elements needed to implement a DSS. During the hardware and software 
selection phase the benefits of certain hardware and software combinations were 
constantly compared against the planned architecture. The decision to select alternative 
hardware and/or software which was different from that in the planned architecture 
had to show that the alternative provided sufficient benefits to make a departure from 
the plan worthwhile. Additionally, the desire of the Department of Defense to have 
full and open competition made the selection of a proprietary (unique to a certain 
manufacturer’s) hardware and operating system solution inadvisable. If a computer 
system can only be provided by a single vendor, then a competitive procurement 
between several vendors is not possible. Therefore, the software selected to imple- 
ment the DSS must be exportable to as wide a range of hardware and operating 
systems as possible. 

B. PLANNED ASO HARDW ARE ARCHITECTURE 

To give the inventory manager a more efficient method for reviewing and using 
the data and reports from the UICP, the "resolicitation" effort was started by the 
Naval Supply Systems Command. The resolicitation effort provided state of the art 
computer hardware to replace the obsolete computers used to run the UICP system. 
The transition phase of resolicitation involved relocating the main database onto state 
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of the art hardware and improving data management with a 4th generation database 
management system (DBMS). This phase is nearing completion. The next step is the 
business support phase. The main goals are to: 

• Introduce new technology (hardware and software). 

• Support non-UICP processes. 

• Promote end-user development. 

• Automate and facilitate manual processing. 

The software technology to support this effort is shown in Figure 6: 
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Figure 6 Software Technology for the Business Support Phase 
The data strategy to support this effort is shown in Figure 7: 
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Figure 7 Data Strategy for the Business Support Phase 
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The hardware technology for the host and distributed departmental levels is IBM 
370 series computers (IBM 9370, IBM 3090, IBM 4381, IBM 3033) or equivalent. 
At the inventory manager level, the current plan calls for installing IBM Personal 
Computers (PC). A PC would be installed at each inventory manager’s desk. These PCs 
would be linked via an IBM token-ring connected to a PC acting as a file server. The 
token-ring also would be connected to a IBM 9370 minicomputer and further linked to 
an IBM 3090 mainframe computer. This linkage would allow the PC to access the 
information on the larger machines. Inventory data and management information 
would be distributed to the 9370 at the departmental level and further divided for each 
work group and placed on the local server. When the inventory manager (IM) has a 
need for a specific item of data, he would select the appropriate program to retrieve 
this data. The local PC will send a request to the server to provide the program (the 
executable code) and it would be transferred to the inventory manager’s PC and 
executed. Next the PC can request the server to provide data from a file resident on 
the servers hard disk. The data is is provided by the server and used by the PC to 
satisfy the requirement. The inventory manager’s PC would treat the server as an 
extension of itself. * 

C. HARDWARE 

The characteristics used as a criteria for selecting the hardware and operating 
system were those characteristics that would best support the development of a DSS. 
The most important characteristic of the hardware is that it should require minimum 

* Charts and strategy plan from presentation made by Ms Sandra Graves, ASO, Code 
PL - RB, November 1987 to the ICP Strategic Planning Group. 
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knowledge of computer operating and network systems from the user. Another 
characteristic is that the hardware should provide reasonable response times for data 
base applications. The selected computer should take advantage of mature technology, 
that is in general use. The capacity of the mass storage system, should be able to 
support several months of operation and should be easily expandable. The operating 
system should be multi-tasking so the inventory manager does not have to wait for 
printing and mail operations to be completed before continuing to use the system. 
Access to the SNA network and the IBM 3090 are vital. The inventory manager 
should have 3278 terminal emulation available on the IM Workstation, so that 
software on the IBM 3090 can be accessed. The ability to transfer files between the 
IBM 3090 (MVS/TSO) and the IM Workstation file server is also required. Data 
transferred from the mainframe to the local computer will be used with the DSS, and 
DSS program outputs will be sent to the IBM 3090 for transaction processing. A 

final requirement is the ability to provide remote access^ for Inventory managers to 

their local files and data bases. It is intended that the IM Workstation will provide the 
inventory manager with the following: 

• Interactive access to the main data base. 

• The ability to use the data with a decision support system. 

• Basic office automation. 

• Tracking of individual inventory manager actions. 

• Electronic mail. 

• A local database which supports the working group’s requirements. 



^ Using the DSS via a laptop computer connected by modem to the local system 
while attending a meeting away from ASO. 
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• An easy to understand/leam user interface. 

• A user interface which is easy to understand and learn. 

The following sections will discuss the technical and management issues involved 
with the PC LANs as presently planned for use by the inventory managers. The major 
issues which will be discussed are: 

• Security. 

• The limitations of MS-DOS. 

• Limitations of other software (on a local area network). 

• PC LAN server performance and disk drive input and output. 

• LAN stability. 

• Data base management. 

• PC LAN Management. 

• PC LAN inefficiencies. 

1. Security 

It is probably the most critical concern of any computerized system. MS-Net 
(Also known as the IBM PC LAN) has extremely limited logon and access security. 
Commands to start the server, including passwords, are kept in ordinary DOS batch 
files, which could be viewed by knowledgeable network users [REF. 15:p. 1]. 

In one installation there was no dial-up capability; only those computers that were 
hard wired into the network had access to the files. The manager of the PC LAN made 
this decision because the security inherent in all local-area network systems is, in his 
opinion, unsatisfactory [REF. 1 6 : p . 41]. A local-area network of 10 personal 
computers, according to some computer system managers, is a minicomputer system. A 
network of 40 personal computers, connected to a 400 M-byte file server, should be 
considered a mainframe. Therefore, all the controls, check and balances, as well as 
security issues, used to govern a mainframe computer system should be applied to this 
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local-area network [REF. 17:p. 63J. Since IBM’s MS-NET does not provide this level 
of security the value of the LAN is affected. Further, the ability to download data 
onto floppy disks is a data security concern. 

2. MS-DOS Limitations 

MS-DOS is a single-user operating system, therefore it is difficult to make 
multi-user functions available [REF. 1 8 : p . 24], Under MS-DOS, interactions between 
the network software and applications software are extremely complex and, in many 
cases, only sketchily understood by programmers and service representatives [REF. 
19:p. 32]. Also if the software has to create or delete intermediate files during the 
running of the program, the user must have rights to create and delete these Files and 
must be permitted to write to the appropriate drive. Some installation programs 
won’t run because internal batch files are trying to copy files to drives which don’t 
exist in the network configuration. [REF. 1 9 : p . 32]. MS-DOS limits the size of hard 
disk partitions to 32 megabytes (Mb). Since the amount of data that will have to be 
stored on the server for the inventory managers could exceed the 32Mb limit, several 
partitions, labeled A through Z, would have to be set up. But a problem exists because 
some applications packages do not let users access hard disk partitions above the "F" 
level. Even if a software product is rich in both features and functionality, the 
software’s use on a PC LAN could be rejected due to this driver limitation [REF. 18:p. 
24]. The use of multiple drive partitions increases the difficulty for the end users, 
forcing them to be well versed in MS-DOS operations to effectively use the network. 
This level of expertise isn’t typically found in an inventory manager. 
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Unlike MS-DOS, a multi-tasking system allows more than one activity to occur 
at the same time. In the case of a local area network, true multi-user software would 
allow two individuals to share the same data at the same time. Should one of those 
individuals edit the information, the network, in conjunction with the applications 
software, would lock the record to ensure that the integrity of the data was main- 
tained. A LAN controls access to single user software a little differently. Although the 
LAN software may include record locking features, the single user software does not. 
Both users can still view the same record. However, should one individual decide to edit 
a record, the entire file locks making all of IT’S data unavailable to others until the 
operation is completed [REF. 19:p. 24]. Unlike a single-user version, network versions 
(or "network-aware" software packages) offer file- and record-locking features and 
allow users more flexibility in terms of peripheral sharing, document sharing, and 
document merging, according to some consultants [REF. 1 8 : P.25] . But even network 
(or "network-aware" software packages) are constrained. For example a problem with 
the networking version of dBase III stems from the limitations of the record lock 
function of MS-DOS, under which dBase is written. The MS-DOS function not only 
locks a record in use, but also erects a barrier so users cannot get at any data that 
pertains to that locked record. These steps make it difficult for users who have 
opened a database with a locked record, to make use of all the data within the database. 
In essence, what this does is block the part of the logical base below that record from 
other users [REF. 20:p. 35]. Record locking will slow down or deny the inventory 
managers access to the data on the server’s hard disk. 
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Another problem with MS-DOS involves the 640 Kilobytes (K bytes) of random 
access memory (RAM) that the operating systems is able to use. For example the 
single-user and network versions of dBase III Plus are the same product, except the 
network version has the "network-aware" features. While the dBase program is the 
same for both versions, to use dBase on a network, users must purchase the dBase III 
Plus LAN Pack in addition to dBase III Plus. While the memory requirement for dBase 
III Plus is normally 384K bytes of RAM for a standalone PC, a PC on a token-ring 
network using the LAN Pack, requires 512K bytes or more of RAM [REF. 1 8 : p . 25]. 
For business purposes, the 640K bytes of RAM currently offered by MS-DOS is 
"woefully inadequate today and will certainly be worse tomorrow... The 640K bytes of 
RAM is such a limitation that some AT users have to reboot their systems between 
applications because of overcrowding from RAM-resident software." [REF. 21 :p. 27]. 
Since the main application the inventory manager would probably be using on a PC LAN 
is a data base program, the limited memory on the PC will allow only a limited amount 
of data to be stored on the PC. This lack of data in RAM will necessitate frequent 
requests for data from the server thru the network and therefore reduce the response 
time of the program. 

The final MS-DOS limitation I will discuss is a function of IBM’s method of 
supporting the file server. While some software vendors, like Novell, have a special 
operating system for the file server which optimizes IT’S input and output perfor- 
mance, IBM operates the file server under MS-DOS. Users who use IBM’s network 
package will see occasional disk errors and protection interrupts. This is caused by the 
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incompatibilities between the server’s capabilities running single user DOS, and the 
multiple functions expected of the network software [REF. 22:p. C/17], 

As an operating system for stand alone PCs, MS-DOS is adequate. But when a PC 
is part of a LAN, MS-DOS’s limitations become a liability. My observation of PCs 
installed on LANs at the Naval Postgraduate School have shown that while MS-DOS on 
a standalone PC is difficult to use, when the PC is in the LAN environment, IT’S 
limitations make it too difficult for anyone but the most expert user, to use effec- 
tively. Even shell programs that try to insulate the users from the operating system 
require the user to have an extensive knowledge of the disk structure and size 
limitations. 

3. Software Limitations (On Local Area Networks) 

Besides the limits imposed by MS-DOS, the network environment imposes 
additional constraints on users and software. Users seeking such (LAN) software face 
several confusing obstacles, including the following: 

• The variety of application software for networks is limited. 

• The software that is available fails to support all LANS. 

• The software may behave differently on different networks, so performance 
varies [REF. 18:p. 25], 

Many popular PC applications written specifically for PCs will not work on 
networks. The problem is that most PC applications are written only for single-user 
systems. They do not have multi-user functions such as file and record locking. For 
example Ashton-Tate has introduced a multi-user version of dBase III. The dBase LAN 
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version is not a very great improvement over the single-user version because Ashton- 
Tate is trying to make it do things it was never meant to do. 

Software developers are presently converting minicomputer applications to 
create PC LAN versions of the minicomputer application. Some of these conversions of 
minicomputer software have been done quite successfully, because the minicomputer 
version of the application has had five to 10 years to mature and the inital design 
planned for a multiuser environment [REF. 23 :p. 31]. 

With token-ring LANs, your choice is either NetWare from Novell Inc. or a LAN 
software program, with lesser overall performance, from one of Novell’s competitors. 
The lackluster performance of IBM’s PC LAN program, combined with its large 
memory requirements, may have been the principal causes of NetWare’s popularity 
[REF. 24:p. C/8] . Compared to IBM’s PC LAN, programs react differently under 
NetWare’s proprietary LAN operating system. With different LAN operating systems, 
all running under MS-DOS, software companies must write their programs for a 
generic network interface standard called Netbios. As a result, program performance is 
degraded rather than being optimized to a specific standard. 

As the emphasis for connectivity increases, the scope of PC LANs has changed. 
Originally, the PC LAN was intended to allow PC’s to share high cost printers, 
exchange files and share expensive disk drives. Now PC LANs are being integrated into 
a hierarchical network where they are required to handle complex data base applications 
and perform vertical data integration. IBM wants Personal Computer users to have a 
strong demand for upstream communications to minicomputer and mainframe 
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processing. You can’t do that with Netbios 3 , though, so IBM wants users to move to 
the LU6.2 4 network interface standard. However, dropping Netbios for LU6.2 will 
require some sacrifices, because there are few off-the-shelf applications written which 
will function under LU6.2. By contrast, there are a large number of applications 
written for Netbios [REF. 25:p. 18]. At this time, choosing the correct network 
operating system and application program is very difficult. What the standard for 
network operating systems will be in the future is hard to predict. The problems of 
limited software selection, the lack of a standard for network operating systems and 
uneven software performance makes the task of installing a PC LAN a difficult task at 
best. 

4. PC LAN Server Performance & Disk Drive Inout/Output 

On PC LANs, the two main activities that are centralized are disk access and 
network management. The LAN industry has adopted the file server system of 
management in which workstation requests for data or programs are processed by a 
server machine. The server then accesses the disk. The file allocation table and the 
question of when and where data may be written are managed by a single server on the 
LAN [REF. 26:p. 39]. The key issue for a file server is the speed of IT’S disk I/O 
[input/output]. The disk delays that concern server designers generally fall into two 
classes: access and transfer times. Access time is the average delay between the time the 
disk system receives the request and when the information starts to flow to or from 



3 The communications protocol used to connect the PC to the network. 

^ IBM’s advanced communications protocol used by the systems network architec- 
ture (SNA) to link mainframe computers together. 
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the disk. IT’S made up principally of the time needed to move the head to the right 
track (the seek time) and the time spent waiting for the correct sector to spin around 
to the head (the rotational latency). Transfer time is the actual interval it takes to 
move the information on or off the disk [REF. 27:p. C/23]. 

If you look at the bottlenecks in a machine that’s acting as a server, there are 
typically two: one is the network subsystem; and the other is the disk subsystem. Both 
of these subsystems have a fair amount of application code which is needed to control 
them, and by simply making the processor faster you can improve performance [REF. 
28:p. C/22]. One method that has been used to improve disk performance is to have 
multiple drives and spread Files over physically separate drives. That way, you can have 
several [disk-transfer] tasks going on simultaneously [REF. 27:p. C/2]. While this 
method will work, it is typical of the complex manipulations used on PC LANs. The 
impact is that the user faces a computer system which is increasingly difficult to use. 

In heavy-use environments, the next areas to examine for performance constraints 
are the network controller card and the disk controller card. You look at the amount 
of intelligence 5 on the disk controller card and the network card. When heavy network 
loads are present, even a computer with a fast CPU can’t afford to wait for each card 
to perform its function and therefore will have to start working in parallel [REF. 28:p. 
C/28]. The server machine for multiple users requires greatly expanded capabilities over 
a single-user machine. The server machine requires multiple concurrent communications, 
as well as heavy file usage and multi-tasking to work effectively. But the present 

5 The control a card can exercise over its functions, independent of the central 
processing unit (CPU). 



33 



MS-DOS operating system can’t do multi-tasking which therefore imposes a limit on 
LAN performance. 

The servers and workstations are linked to the network by a network controller 
card. A controller card (one is installed in each workstation and server) is more critical 
to the operation of a file server than it is to a workstation, due to the large number 
of disk input/output activities on the server [REF. 29:p. C/17]. IBM’s token-ring 
network uses the same adapter card that is used in a workstation, this can lead to 
input/output performance problems. While the token-ring network is rated by IBM at 
4.0 Mbps, a recent test showed the transferrate from an IBM 3090 mainframe in 
connection with a 3275 terminal controller to a PC to be only 0.2 Mbps [REF. 30:p. 
C/1]. Such a low transfer rate could affect the ability of the PC LAN to provide a 
conversational level of service. 6 

The IBM token-ring network does not use a specially built server, but rather 
makes use of an IBM PC-AT class machine as a server. Even though software for most 
PC networks can run on ordinary workstations, several manufacturers and independent 
consultants recommend the use of a specially built, dedicated file server for a net- 
work’s control coordination and storage. These vendors claim the advantages of a 
dedicated file server range from increased ease of installation and greater security, to 
better packaging and faster performance [REF. 29:p. C/17]. The use of an IBM PC-AT 
class machine, running under MS-NET, would lead to a less than optimal level of system 



6 A conversational level of service is a speed such that the user does not notice an 
excess delay between the entering of a request and the response. 
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performance. It does not have the ability, when running MS-DOS, to perform the 
multi-tasking functions needed for successful server operations. 

5. LAN Stability 

LANs are less stable (prone to crashes and errors in data integrity) than 
stand-alone PCs. Using complex background software, the networking operating 
system fools the workstations into believing they have additional disk drives, printers, 
serial ports, etc. Even without "terminate and stay resident" (TSR) type programs, an 
occasional application that has not been written in strict compliance with MS-DOS will 
have difficulty working correctly on any PC network. When the PC is connected the 
network and and TSR’s are used, many more applications have problems. 

TSR’s illustrate the major difficulty in LAN management. Whenever multiple 
software packages and multiple types of hardware work together, integration becomes 
an important, but complex task. It is tempting to solve the problems as they occur. 
But this is only a stopgap measure. The best solution to the integration problem is 
early planning and a comprehensive management program [REF. 3 1 :p C/53]. 

Even carefully designed security procedures will never protect the integrity of a 
network completely. The best security is a current archival record of the hard disk. 
How often the system is backed up and whether the entire system or only changed files 
are archeived will depend on the size of the databases and the volume and patterns of 
data additions [REF. 19:p. 32]. Considering the large number of local area networks 
which will be installed at ASO, not only will this involve each server but also any 
workstation with a hard disk. This will be a difficult task to actually perform and 
manage. If backups are not performed religiously, the network could be destabilized 
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through lost and corrupted data. The result will be that the validity of data will be 
questioned and trust in the system lost. 

A ring network connects each computer in a circular configuration. Under heavy 
loads transmission speeds are faster than those found in a eathemet (bus) LAN. One 
disadvantage to a ring network is that any disruption in the network, such as an 
equipment failure or the addition of a new workstation, can cause the entire network 
to shut down [REF. 19:p. 21]. As a result the network is sensitive to cable damage. In 
the ASO environment, where a large number of the inventory managers do not have 
modular furniture, the chance of cable damage is very possible. The token-ring 
network cabling is very complex. IT’S installation is a major effort and requires a large 
number of cable runs. Inherent to this intricate system is a very high cost for 
procurement and installation. Moreover once such a network is installed it is very 
difficult to move. 

An additional area that can influence system stability is outside 7 software. The 
availability of MS-DOS programs adds a new dilemma to the computer management 
problem. The low prices of PC software packages will tempt inventory managers, with 
a PC on their desk, to buy a program that will help them do their job (or balance their 
checkbook). So long as an application remains restricted to a local users desk, then 
software standardization isn’t a problem. But, when it becomes a company wide 
application you have to have centralized control over the software being used [REF. 
32:p. 53]. 



7 Software not provided by the organization or included in the software configura- 
tion management system. 
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The most perplexing software is the terminate and stay resident (TSR) kind. 
Terminate and stay resident (TSR) programs such as Sidekick are mixed blessings for 
LAN managers. They provide convenience for users and tools for improved LAN 
management, but they also cause program crashes and general network instability. TRS 
problems fall into four general categories: insufficient memory, interrupt contention, 
command-key contention, and if several TSR’s and an application need to share the 
main 640K-byte block of memory, their may be insufficient space left for larger 
applications. The dangers of uncontrolled TSR’s are intolerable because resulting 
crashes could damage databases or corrupt directories. 

Since TSR’s cannot be banned, they have to be managed. However, TSR 
management can be a sensitive issue. Users may select a favorite TRS before the LAN 
is installed. When told to stop using it or to change to another product, the users can 
become rebellious [REF. 3 1 :p. C/5]. And because of the PC’s independent nature, it is 
frequently difficult for MIS to control software use. 

Overall the PC LAN, as it exist today, is a very delicate structure. In a 
production environment like ASO, where stability and up time are vital, the sensitivity 
of PC LANs to IT’S environment could have a serious impact on productivity. 
Additionally, excessive down time can have a negative impact on the user. If the 
inventory manager Finds the computer system to be unreliable, or if IT’S more trouble 
to use than IT'S worth, he or she won’t use it. 

6. Data Base Management 

The main issue with a database placed on a PC LAN is the security of the data. 
This security involves both denying unauthorized access, and preventing unintentional 
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damage to the data base. In spite of carrying out conservative security procedures, 
data on any PC network is vulnerable, due to the lack of true multi-user software and 
to the large number of users accessing the databases [REF. 19:p. 34], 

Another issue with data base management on a PC LAN is whether or not the 
level of data base work that will be done by the inventory managers will exceed the 
level of efficiency of the network. Sometimes it is desirable for activities to be 
centralized. Application processing, for example, usually involves manipulation of small 
amounts of data and is handled in the distributed workstations. Application process- 
ing, however, may not be efficient for data base management and large processing jobs. 
Some data base operations are more efficiently performed in a central processor. This 
is not an issue in smaller data base systems, but as the size of data bases and the 
number of workstations increases, so does the need for centralized processing [REF. 
33:p. 39]. 

PC LANs are presently not mature enough to handle large production size data 
bases. "You can have a shared data base on a LAN server, but PC LAN-based DBMS’s, 
while they have made great strides, don’t yet equal minicomputer based DBMS’s," 
[REF. 34]. The PC LAN-based DBMS’s suffer from the problems of record locking and 
bottlenecking at the file server. In addition the slow speed of token-ring network data 
transfers from the server or minicomputer will cause the DBMS to have less then 
acceptable performance. Most data base uses will require a conversational interaction (5 
seconds or less) or an inquiry/response interaction (20 seconds or less) [REF. 35:p. 4], 
My experience with various token-ring LANs at the Naval Postgraduate schools is that 
these types of response goals will be unattainable. 
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7. Installation 



The installation of PC LANs is a very complex task. Each installation is 
almost a custom-tailored job [REF. 36:p. C/8]. "‘In practice, though, LANs are quite 
tricky little devils,”’ warns Ian Ebel, president of Microserv Technologies Corp., a LAN 
consulting firm. "‘If you don’t know what you’re doing, they can cause you a lot of 
headaches and grief.’" [REF. 23:p. 31]. 

John Schmidt, systems analyst at American Hardware insurance Group in 
Minneapolis, installed three IBM token-ring LAN’s a year ago and says that the big 
surprise was how much time was consumed. "The network hardware wasn’t difficult, 
but software gave us problems," Schmidt says. "At first we used IBM’s LAN 
operating system but found it difficult to fine-tune to give us maximum performance. 
We opted for Novell, Inc’s Netware operating system instead." [REF. 37:p. 27]. 

One of the first things people will want to do with their LAN is to share a 
high-speed laser printer. Just about every network administrator has a horror story 
to tell about his or her printer. The stories range from simple connection difficulties, 
to getting control over the print-job stream and fonts. Just getting the printer 
connected can sometimes be a chore [REF. 38:p. C/9]. For example, one woman’s 
station had a laser printer attached to it. To allow other people on the network to 
have access to the laser printer, she had to be on the network constantly because so 
many people wanted to spool to the laser printer. With no administrator present, 
many users were incorrectly spooling to one of her disk drives. She was constantly 
losing files or getting her PC locked up and finally decided not to boot up on the 
network [REF. 39:p. 41]. 
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8 . PC LAN Management 

Even after a PC LAN is installed, it requires a great deal of attention. Unlike 
the stand-alone PC, a PC LAN is not self sufficient due to IT’S dependence on the 
server for application programs and data storage. While an individual might have 
trouble using the PC on his/her desk, (constantly jamming it up through operator 
error) when you link that person’s PC to the network you’re going to multiply their 
mistakes many times over. In fact the more competent users may refuse to be on the 
PC LAN because the mistakes of others slow them down. Patience is the byword when 
it comes to local-area networks. When the LAN goes down, lots of people want their 
spreadsheet and databases brought back up. The stakes are higher when data is on a 
LAN because the information on the server is inaccessible [REF. 40:p. C/8]. "People 
expect an installation to be an immediate solution. In all honesty, IT’S the beginning 
of the solution, not really the solution itself." [REF. 39:p. 41]. 

Initial network installation is hard enough, but networking is now generally so 
complex that clients need to be constantly updated and supplied with new network 
resources to keep them current and competitive. Once you emerge from the initial 
network installation, you can run right into trouble. Suddenly you have data center 
designs, structural designs, gateways and communications with remote systems. These 
are network design elements that users rarely foresee [REF. 37 :p. 27]. 

The final issue concerning the management of PC LANs concerns network 
administrators. At ASO, the network administrator will probably be an inventory 
manager who will have this job as a collateral duty. It is very important to have well 
trained network administrators. Unlike mainframe and minicomputers, the administra- 
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tion of a PC LAN is an hour to hour operation. The same flexibility that made the PC 
popular is also it achilles heel. It is too easy under the present PC LAN operating 
systems for the user to corrupt data in the system or cause the network to crash. 
The network administrator must be on hand as much as possible to maintain the 
network. If you don’t have competent network administrators, the project is going to 
fail [REF. 39:p. 41]. 

An additional management issue is that those LAN managers who can successfully 
avoid the pitfalls and create productive, stable LANs are in high demand. The job 
market for PC LAN managers is destined to grow rapidly and the talent pool is quite 
small. With decisions becoming ever more difficult, corporations need LAN experts 
with a successful track record. Promotions and attractive offers from headhunters will 
gradually become the LAN manager’s standard fare [REF. 39:p. 41]. This could have a 
detrimental effect on the effectiveness of the PC LAN, as successful LAN managers 
leave inventory management for higher paying jobs just managing PC LANs. Taking all 
the various factors into account, the installation of PC LANs is still black magic. The 
PC LAN has evolved a great deal since IT’S inception, but it has yet to reached 
maturity. The installation and management of PC LANs is still filled with many pitfalls 
and headaches. Choosing a PC LAN for a production environment is still very 
questionable decision. 

Based upon the above discussion of the technical and management problems 
associated with personal computers on a token ring network, there was sufficient 
justification to to depart from ASO’s planned hardware architecture. Management of 
the PC LAN would be so difficult that the effective implementation of a DSS would 



41 



not be possible. It was decided that the hardware best suited to provide inventory 
manager’s with a DSS and individual workstations would be a minicomputer based 
system. Minicomputers have excellent security, their operating systems are not limited 
by RAM or partition disk size. The software for minicomputers is designed to operate 
in a distributed, multi-user environment, the files are managed so that access for 
authorized users is unlimited and updates are logically controlled. The performance of 
the minicomputer, especially when configured with diskless client workstations, is 
superior to any PC LAN configuration. When the issues of system stability and 
management are also considered, a minicomputer system is the only answer. Figure 8 is 
a part of a connectivity decision chart excerpted from PC Magazine [REF 65]. PC 
Magazine is mainly concerned with PCs on various LANs, but their decision chart shows 
that the best decision when you do not have a large investment in DOS based PCs and 
do have a heavy data load is to consider using minicomputers. 

The choice of which minicomputer to use was narrowed by the following 
constants: 

• It should use a non-proprietary operating system. 

• It has a high resolution, 19 inch monochrome display. 

• It would work with the selected DSS software. 

Hardware to fulfill the specified parameters was available from several manufacturers: 

• International Business Machines (IBM) 

• Digital Equipment Corporation (DEC) 

• Sun Micro Systems (SUN) 

Each of these manufacturer’s computers uses a version of the UNIX operating system. 
While each version is slightly different, they all support the DSS software. Each of 
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Other hardware alternatives 



Figure 8 PC Magazine Connectivity Decision Guide 



the computers supports workstations with a high resolution, 19 inch monochrome 
display. All the workstations are linked to the server via an ethernet using the 
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Network Files Systems (NFS) protocol. NFS was developed by SUN, but licensed for 
a minimal fee to IBM and DEC. It has become the industry standard for ethernet 
connectivity. 

IBM offers the RT PC, with different versions acting as the server and worksta- 
tion. IBM’s version of UNIX is called AIX . DEC offers the VAX 3600 as the server 
and micro-VAX 2000 as the workstation. DEC’s version of UNIX is called ULTRIX. 
SUN offers the SUN 3/280 as the server and the SUN 3/50 or 3/60 as the worksta- 
tion. SUN’s version of UNIX is called "SUN OS". 

Functionally each machine offers similar performance, capabilities and capacities. 
The IBM machine was not selected for the DSS development during this thesis because 
version 2.0 of ALIS (The selected DSS software) was not yet available for the RT PC 
when the hardware was procured. The reason for selecting the SUN system over the 
DEC was that the Naval Postgraduate School already had a large installed base of SUN 
systems and could provide technical and repair services for the workstation that would 
be procured for DSS development. For a large scale installation, any of the systems 
would be fully functional. The ALIS software is such that it can be developed on one 
system and transported to a different system without conversion. The exportabilty 
provided by using an open operating system supports full and open competition and 
keeps the DoD from being tied into a single vendor. 

The following hardware was procured for DSS development: 

• SUN 3/50 workstation with high resolution, 19 inch monochrome display, 4mb 

RAM and ethernet port. 

• 141 mb fixed disk with 60 mb 1/4" streaming tape device. 

• QMS-PS 800 Postscript laser printer. 
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• Zenith data systems 2400 baud modem. 

This hardware fully supported the DSS software development. While the UNIX 
operating system has a reputation for not being user friendly, the new graphical user 
interface being provided by SUN called Open Look has removed much of the unfriendli- 
ness. Open Look is a version of X-Windows. X-Windows was developed by the 
Massachusetts Institute of Technology (MIT) under a grant from IBM and has become 
an industry standard. DEC and IBM both offer X-Windows. 

D. SOFTWARE 

As discussed in the Chapter 2, the DSS is built using a shell. In selecting the shell, I 
wanted a highly integrated Office Automation package, i.e. one that provides word 
processing, spreadsheet, database management and a macro programming language. The 
software packages identified as possible candidates were: 

• SmartWare, by Informix Software, Inc. 

• Q-Office+, by Quadraton System, Inc. 

• ALIS, by Applix, Inc. 

• Officepower, by Computer Consoles, Inc. 

• R Office+, by R Systems, Inc 

• Uniplex Advanced Office System, by Uniplex Business Software. 

To become a possible candidate, the software had to run on a Unix based 
computer. While various integrated packages like IBM’s "AS/400 office" and DEC’s 
"All-in- 1" were possible candidates, they are based on proprietary operating systems. 
Each of the possible software packages listed above can operate on over twenty 
different UNIX based systems. I reviewed each of packages for the following features: 
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• Access to the UICP database from within the office automation software. 

• Ability to import a subset of the UICP data base and use the data within the 
office automation software to form a decision support system. 

• A user interface that is easy to understand and learn which complies with the 
Xerox PARC / Open View interface standard. 

• Electronic mail which can be transmitted amongst both the inventory managers 
and other groups and organizations. 

• Highly integrated office automation system with a consistent user interface 
containing word processing, spreadsheet, data base and a macro programming 
system to develop the DSS with. 

After studying information, manufacturers and computer publications, it appeared 
that SmartWare and ALIS were the most promising. The other packages either did not 
contain a spreadsheet or electronic mail or both. Additionally, many of the packages 
did not allow for a total integration of data between the modules. The reason ALIS 
was selected over SmartWare was that it provided two key features that SmartWare 
did not. ALIS provides a graphical user interface that complies with the Xerox standard 
and an extensive programming language that allowed control of both the integrated 
packages and the UNIX operating system. The final step taken before selecting ALIS, 

was to contact ALIS users within the DoD^. ALIS was highly recommended by Mr. 

Dana Brewer of the Office of the Secretary of Defense. Appendix B contains an 
in-depth description of ALIS and its various features and configurations. 

This thesis document was created using ALIS. The thesis is a compound 
document containing spreadsheet and graphic editor insets. The format of the 



8 The prime point of contact was the Office of the Secretary of Defense which has a 
300 user system. Additionally the US Air Force uses ALIS for IT’S Local Office 
Network System (LONS). LONS is presently installed at several US Air Force bases 
in the Eastern United States. 



46 



document was controlled by a style guide and printed on a postscript printer. From 
receipt of the ALIS software, I was productively using it within two days and felt 
completely competent with it within a week. It has performed flawlessly and has 
provided all the capabilities advertised by Applix, Inc. 
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IV. UICP DATA ELEMENT SELECTION 



A. INTRODUCTION 

The first task in developing the IM Workstation’s DSS was to identify the data 
elements most important to the inventory manager’s work and to find out how the 
data elements are being used. The optimal way to identify the data elements and their 
uses would have been to perform a structured analysis. The structured analysis would 
then result in a physical data flow diagram showing the present business methodology. 
This could then be restructured into a logical data flow diagram which would take the 
present system and transform it into a streamlined view of the business which could be 
programed. In a production environment, such as ASO, completely stopping old (and 
established) w'ays of working and changing to a completely new system would be 
unacceptable. I decided to follow a multi-staged process: 

• Determine the UICP applications and data elements the inventory managers 
consider necessary to perform their mission. 

• Document the managers actual use of the selected information. 

• Determine how to import the selected information into the Decision Support 
System (DSS). 

• Construct a DSS based upon the managers requirements. 

This chapter will discuss the first two steps in this process. The subsequent two 
chapters will discuss data extraction and the building of the DSS modules. 

B . APPLICATION AND DATA ELEMENT DETERMINATION 

The most critical element of my thesis was the identification of the UICP applica- 
tions and data elements that the inventory managers use to support their daily work 
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effort. The outstanding cooperation of the personnel at ASO made this identification 
work much easier than I first anticipated. 

To support the determination of the data elements and their uses, the director of 
Weapons Management identified one of his most competent branches, WMB51, to 
work with this project. The branch head selected his seven most competent and 
experienced inventory managers. The managers were asked to identify the A02 data 
products they used on a regular basis. 

If they need the information on a regular basis^ to answer a phone query, to 
process a requisition or to review a recommended buy they should identify the A02 
product they would use. From the choice of 39 A02 products, the managers selected 
the ones that they would use on a regular basis. While each manager could have 
selected all 39 of the products, they only picked between 6 and 12 products. The mean 



A02 PRODUCTS 





AS 


BA 


BB 


BD 


BJ 


BK 


CB 


CD 


CH 


CL 


EF 


NA 


NB 


RS 


WA 


# 


1 


•/ 










V 




V 




v 




V 




V 




6 


2 


V 






V 


V 


V 


V 


V 


V 


V 




V 


V 




V 


12 


3 


V 


V 


V 




V 


V 




V 


V 


V 




V 




V 


V 


11 


4 


V 










V 




V 


V 


V 




V 




V 


V 


8 


5 


V 










V 




V 




V 


v' 






V 




6 


6 


V 










V 




V 


V 


V 


V 


V 


V 


V 




9 


7 


V 










V 




V 




V 


V 


V 


V 


V 




8 


# 


7 


i 


2 


i 


2 


7 


i 


7 


4 


7 


3 


6 


3 


6 


3 





Figure 9 A02 Products Selected by Each Inventory Manager 
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A regular basis was considered to be at least once a week. 
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number of A02 products chosen was 8.5. Figure 9 shows the A02 products selected 
by each manager. Figure 10 provides a graphical display of the selection distribution. 
As Figure 10 shows, the managers actually use only a small number of the data 
products available. Secondly, the managers were in agreement as to which products 
were the most important. The managers selected six high usage programs that they 
felt were vital to the performance of their jobs. These key products were named, AS, 

BK, CD, CL, NA, and RS^. They actually represent the heart of the inventory 
management process. 
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Appendix A contains a definition of each A02 product. 
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The information provided by these A02 products forms the basis of the 
inventory manager’s ability to answer the following questions on a daily basis: 

• What stock is available for issue? 

• What stock is on order, and when is delivery expected? 

• What requisitions are backordered? 

• What is the status of a specific requisition? 

During the interviews, the inventory managers stated that they usually have to 
use two or more of the A02 products to answer any of the above questions. The 
inventory managers said that the process of retrieving the information was very time 
consuming. Furthermore, they said that the only way to work with the data was to 
print each screen from the current IBM 3270 terminals individually and place the 
printouts side by side on their desks. This allows them to correlate the data from one 
A02 program with that of another, to obtain the information they need. 

The next step was to identify those data elements in each A02 product which 
were being used and those which were extraneous. It turned out that only a very few 
of the data elements from each report were used. Inventory managers stated that many 
of the reports could be reduced in sized and data from various reports combined to 
better fit the needs of the managers. 

Sprague and Carlson’s text, Building Effective Decision Support Systems , states 
that "Almost every study of decision making and DSS indicates that decision making 
involves reducing / abstracting from large amounts of data. Data reduction involves 
sub-setting, combination, and aggregation of records and fields in a database." [Ref. 
41 :p 99] Therefore, if an effective DSS was to be constructed, an abstracting of data 
from the UICP database and A02 products was required. 
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The managers were asked to select from each A02 product the data elements 
(DENs) they used. They were also requested to identify any additional data elements 
that are not part of a selected A02 product, but are required to perform their 
analysis. The managers selected 1 10 data elements. Of these, 50 were selected by at 
least four of the seven managers. What this implies is that the managers only use or 
need 1 10 of the 3,992 data elements available in UICP. Appendix C contains a listing of 
the 110 data elements selected and the A02 products which use each data element. This 
represents 2.7% of the data elements in the UICP database. While this indicates that a 
very low percentage of the database is being used by the inventory managers, many of 
the unselected data elements are required for other functions. These data elements are 
used to compute supporting information, provide purchase requirements and maintain 
provisioning technical data. Additionally, while the prime mission of the Aviation 
Supply Office is inventor}' management, many of the supporting management codes, 
such as procurement, provisioning, and component repair management make use of 
these other data elements. 

In addition to the on-line products, information is provided to the inventory 
managers on a cyclic^ basis in the form of several printed reports. The inventory 

managers expressed a desire to have this information on line as part of the DSS. The 
reports they indicated they wanted data from were the Consolidated Stock Status 
Report (CSSR) and the Supply Demand Review (SDR) report. 



3 The interval could be quarterly, or as the product of a periodic review inventory 
model. 
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V. DATA EXTRACTION 



A. INTRODUCTION 

The UICP database, resident on the IBM 3090-400 mainframe, is a complex series 
of on-line data files and off-line tape files. To modify or replace the present A02 
products would involve an extensive amount of reprogramming and the associated 
database integrity checks and testing. This process would take several years to do 
properly. The best approach is to leave the A02 products unchanged and extract from 
the UICP database only that information required by the IM Workstation to perform 
day to day functions. By limiting the number of active interfaces with the UICP 
database, many of the interface problems are eliminated. According to David Alexander 
"a DSS does not replace or compete with other systems; instead, it extracts from 
other systems the information that is essential to the process of decision-making." 
[Ref. 7:p 116] This chapter will discuss the methodology used to extract from the 
UICP database data elements identified by the inventor)' managers and discussed in the 
previous chapter. The COBAL programs to extract the data elements from UICP were 
written by Paul Rosen of ASO’s planning division. He was assisted by Bill Leanza and 
Elmer Nagrampa, management interns from the Naval Supply Systems Command 
(NAVSUP). Mr. Rosen and the NAVSUP interns dealt with the issue of extracting the 
data elements, while this thesis work developed the minicomputer software to use the 
data elements once they were downloaded to the minicomputer. 

B. DATA ELEMENT EXTRACTION 

The majority of the data elements identified by the inventory managers were 
located in the UICP database files accessed by the UICP Supply Demand Review model 
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(BIO). This model reviews stock levels and computes recommended quantities for 
procurement. The printed output of this model contains not only the recommended 
procurement quantities but also a large amount of management data. The management 
data included in the printed output contains many of the required data elements. 
Appendix D contains the COBAL program called NSN5B, that extracts the data from 
B10JX1 record types (D, F, H, J, L, N, P, R, T, V, and Z) in the UICP database and 
creates thirteen data files which can be moved to the IM Workstation. 

The NSN5B program was difficult to write because the structure of the B10JX1 
record w'as not known. The documentation for the record’s structure w r as incomplete 
and out-dated. The key to performing an extract was finding the exact file location of 
each data element. To build a complete map of the record’s structure, an extensive 
amount of research and subsequent effort was required. The various information then 
had to be correlated to build the map. Once the location of the data elements within 
the record were known, the programming effort continued without difficulty. 

The NSN5B program first opens the B10JX1 record and performs a subroutine 
which extracts information for only those stock numbers managed by WMB51 branch. 

This extract is done using logistic routing codes (LRC).^ NSN5B then goes to the 

specific file location for each data element and reads that data element into working 
storage. The information is stored and referenced by it DEN number. Upon reading all 
the required data elements for each stock number, the information is written to the 
appropriate file for later transfer to the minicomputer. This routine continues until 

1 The logistic routing code identifies the specific inventory manager who manages a 
particular item. 
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information for each stock number has been extracted. Then, NSN5B closes B10JX1 
and each of the created data files. The information in the data files is then manipulated 
to ensure each record is properly format (e.g.; currency fields, quantity fields). The 
data file Outfile4 called contains the ready and not-ready for issue stock status 
information. The information is reorganized so that it presents, for each reporting 
activity, "ready for issue" (RFI), then "not-ready for issue" (NRFI) and finally "all 
purpose codes" (pur-all) stock status information in a single display line. Upon 
completion of this routine, NSN5B is finished and the data files are ready to be down 
loaded. 

C. DATA FILE STRUCTURE 

The thirteen data files which result from NSN5B are organized to correspond to 
the various sections of the NSN Snapshot. Ofilel, Ofile2 and Ofile3 contain technical 
reference data. Ofile4 contains the current stock status information. Ofile5 contains 
material due-in from contacts information. Ofile6 contains planned program require- 
ments data. Ofile7 contains alternate national item identification numbers (NUNs) 
data. Ofile8 contains application data. Ofile9 contains information on backordered 
requisitions. OfilelO contains part number reference data. Ofilel 1 and Ofilel2 contain 
reference material if the item is managed by a non-Navy activity. Ofilel 3 is a support- 
ing file used to construct Ofile4. Appendix E contains a sample listing of each file and 
Table 1 summarizes them. The exact placement of each data element within the file can 
be read from the program listing of NSN5B in Appendix D. 

The reference key to the data files is that characters 1 to 9 of each line represent 
the NUN. This allows the data from the different data files to be correlated. Data 
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Table 1 

rile 

Ofilel 

om©2 

Of ile3 
Ofilel 
Of ile5 
Of ile6 
Of ile7 
OfileS 
Of ile9 
OfilelO 
Ofilell 
Of ilel2 
0£ilel3 



BY 



PROGRAM 

Type 



NSN5B 



FILES CREATED 

Description 

Technical Reference Data 
Technical Reference Data 
Technical Reference Data 
Current Stock Status 
Due-in From Contracts 
Planned Program Requirements 
Alternate HIIM Data 
Application Data 

Backordered Requisitions Data Repeating Field 

Part Number Reference Data Repeating Field 

Non-Navy Management Data Repeating Field 

Non-Navy Management Data Repeating Field 

Temporary, Builds Ofilel Repeating Field 



Single Field 
Single Field 
Single Field 
Repeating Field 
Repeating Field 
Repeating Field 
Repeating Field 
Repeating field 



files like Ofile4 have multiple lines of data for the same NIIN. The program reading 
the data file can tell when the data for that NIIN has been completely read when the 
first nine characters of the next line do not match the NIIN being worked with. This 
key reference system allowed variable length data to be handled in the same simple 

method used for fixed length data files. 

D. REQUISITION DATA 

The data for requisition processing is pulled straight from the Document Status 
File (DSF). Due to the fixed field features of requisitions, they are relatively easy to 
work with. A subroutine program pulls those requisitions from the file that match the 
logistic routing codes for the item managers in WMB51. The resulting requisitions are 
passed as one data file to the minicomputer. The files are then read and used by the 
requisition process module. 

E. CYCLIC HISTORICAL DATA 

Due to the same difficulties experienced when NSN5B was written, poor or 
nonexistent documentation has caused the extracting of historical data from the cyclic 
data sheets to be a very difficult task. Mr. Rosen and the NAVSUP interns are 
presently working to solve this problem. It is expected that by early January 1989, 
they will have an appropriate extraction program ready. 
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VI. DSS CONSTRUCTION 



A. INTRODUCTION 

This chapter will discuss the how the data elements extracted from the UICP 
database and how the office automation and programming features of ALIS were used 
to create the DSS. The following areas will be discussed: 

• Information usage 

• NSN Snapshot construction 

• Inventory management menu construction. 

• NSN Notebook construction. 

• Requisition processing construction. 

• Cyclic view construction. 

• Supply demand review processing. 

• Style guides and office automation. 

The discussion of each area will cover the major functions of each module in the DSS. 
The computer programs for the completed modules are provided in the appendices. Due 
to time constraints, the requisition processing, cyclic view, and supply demand review 
programs were not completed when this thesis was published. 

B. INFORMATION USAGE 

Following the determination of which A02 products, data elements and data from 
printed reports were most important to the inventory managers, an understanding of 
how to organize this information was needed. Most computer implementations take the 
pre-computer, manual paper system and copy the present methods and reproduce it 
with a computer program. Rather than take this approach, the following groups of 
functions were examined: 
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• Answering customers’ questions when they call for the status of a requisition or 
the quantities of stock on hand. 

• Using historical data to analyze future requirements. 

• Processing requisitions for stock issue. 

• Processing supply demand review outputs from the UICP computer model BIO . 

• Maintaining miscellaneous information about each stock number. 

• Answering correspondence, preparing buy packages and general office automation 

The NSN Snapshot was designed by ASO personnel to allow them to answer 
customer queries rapidly, assist the processing of requisitions and to provide a uniform 
method of looking at stock status. The NSN Snapshot is intended to deal with 
current information. To supplement the NSN Snapshot and provide the inventory 
manager with information about historical patterns, a module called the Cyclic view is 
being designed. The Cyclic view presents historical data taken from the Consolidated 
Stock Status Report. The combination of NSN Snapshot and Cyclic view information 
will provide a basis for the manager to analyze the recommended buys from the Supply 
Demand Review process. With the extracted data elements resident in the DSS, buy 
computations can be done by the item managers without having to input the data from 
printed reports. 

To allow information presently kept by the inventory managers on ASO 730 
cards ^ to be maintained in a uniform manner, the NSN Notebook program was written. 
The NSN Notebook is intended to provide a consistent repository for non-UICP 



^ Paper record cards maintained by each inventory manager, for each stock number. 
They contain miscellaneous information not kept in the UICP database (ie points of 
contract). 
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database information that is required by the inventory managers. Examples of the 
information to be kept in the NSN Notebook for each stock number are: 

• Pending stock number change information. 

• Contract expedite information. 

• Points of contact. 

Not only does the NSN Notebook provide a consistent method for maintaining this 
type of information, but it also allows all members of the branch to have access to the 
information. To facilitate the uniform processing of requisitions, the requisition 
processing module was built. An additional area to be implemented deals with the 
processing Supply Demand Reviews and their associated buy computations. The 
following sections will discuss the designing and programming of each of these modules 
and how they are used to implement the DSS. 

C. NSN SNAPSHOT CONSTRUCTION 

The NSN Snapshot was designed by ASO inventory managers to give them the 
ability to rapidly answer customer queries and provide concise management information. 
The NSN Snapshot has its information displayed in seven areas or views. Figure 1 1 
shows a sample NSN Snapshot. The top view contains the provisioning and technical 
data pertaining to each stock number. It contains such information as the name of the 
item, standard price, replacement price, part number reference and wear out rate. The 
purpose of the first view is to give the inventory manager, in one area, the item’s key 
management information. This key information includes the value of the item, how it is 
managed by the UICP database, and whether it is a repairable or consumable. View 2 
provides the current observations of quarterly demand, and other related information. 
This information gives the inventory manager an insight into the amount of demand 
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the pan is presently experiencing, how many parts are required but cannot be presently 
provided and how many parts are due in from the manufacturers. View 3 provides 
application data. Application data tells the inventory manager what equipment uses this 
specific pan and in what quantities. 

View 4 provides a listing of pans by geographical location and their associated 
condition (ready for issue, not ready for issue but in repair, or not ready for issue and 
awaiting repair). This view is referenced on the NSN Snapshot as PTAS Data. The 
name PTAS comes from the command for the original retrieval program that was 

accessed from a tty device^. The inventory managers wanted the data arranged across 

one line to make it easy to work with. The present A02 program design requires a 
separate A02 product to provide the data associated with each column of the PTAS 
data. The way the PTAS data is presented in the snapshot makes it much easier to 
work with than the dissimilar paper outputs from A02. View 5 provides information 
on material which is due in from manufacturers, including the planned delivery date to 
the stock point. View 6 informs the inventory manager of any requisition for the item 
that have been placed in a backordered status awaiting material delivery. The last view, 
view 7, provides the inventory manager with information on planned program 
requirements. This allows him to easily see what material will be requested in future 
months, so he can ensure that it is available when required. 



^ If the manager wanted to know the status of ready for issue parts they would 
input "PTAS!RFI!ALL!001231234” on the tty and the system would return a 
printout that was very similar to Figure 1. 
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As shown by Figure 11, the NSN Snapshot is a long document. To allow the 
inventory manager to view the information, the ALIS environment presents the 
document in a window. The window can be scrolled to reveal specific areas of the NSN 
Snapshot or exploded to show it as one window making use of the complete 19 inch 
display area. Overall the NSN Snapshot provides clear and concise management 
information for each stock number. It provides the inventory managers with the data 
they need to properly manage an item and support customer requests. 

The NSN Snapshot is the key element of the IM Workstation for the inventory 
managers DSS. While on the surface the NSN Snapshot might appear as only a clean 
way to present data on the screen, it actually represents much more. By having the 
information presented in a well organized manner, it actually influences how the 
inventory managers perform their work. In many cases, if the inventory managers 
needs today the information which will be contained in the NSN Snapshot he would 
have to perform extracts from six A02 products. Not only is this process time 
consuming and tedious, but there is no guarantee that the inventory manager will make 
the effort to obtain all six A02 products. The inventory manager might use old 
printouts or try to recall the information from his or her own memory. This could 
lead to an improper decision being made because the it was based on partial informa- 
tion. The present failing of the UICP database is not the quality of the database or its 
models, but rather the difficulty of extracting and working with the data. Therefore, 
a main feature of the NSN Snapshot is that it will make the UICP database accessible. 
The value of the information from UICP will be further aided by organizing the data in 
a logical manner which will expedite the decision making process. 
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View 1 



NSN Snapshot 

00 - 051-8587 



Nov 16, 1988 



NSN : 7RE 1615-00-051-9587 



Name: SWASH PLATE, ASSY RO 



DRIPR : 


ss_sz 


LRC : 




5MT 


Wear Out: 


0.04 


CNS : 




RIC: 


GB48RDX 


PLT: 




18 
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0 


Source : 


PA 
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E 


Entry DTD: 
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0 
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Std Price: 


$39,580.00 


Net Price: 
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Rpl Price: 
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Unit Issue: 
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View 2 



zoooo 

TO 0 03 
TO 0 02 
TO 0 0 1 



GB4 8RD 

NOT INTERCHAN GABLE AFTER AFC 342 
OBSOLETE AFTER INCORP AFC 342 
H 4 6 DCN 522-03-010 



Current Qtr Maint DMD Obs 
Current Qtr OVHL DMD Obs 
Est Qtrly DMD During PLT 
Total Back Orders 
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4 

0 
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View 3 
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OG 
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View 4 



PTAS Data 



Site On 
NAZ 
NDZ 
NDZ 
NDZ 
NNZ 
NVZ 
NXZ 
PJZ 
PKZ 
PNZ 
PNZ 
PRZ 
PSZ 
PTZ 
PTZ 
PTZ 
PTZ 
P 4 8 
QQC 
Qie 
R 6 3 
TOTAL 



Hand Due-In Due-Out PPRs SD 



NON-RFI 

CC On Hand Due-In Due-Out 



3 

30 

26 

0 



3 

6 

2 

20 



PUR ALL 

PC On Hand Due-In Due-Out PPRs 



0 

0 

0 

0 

13 



C 

0 

1 

0 

15 



Figure 1 1 Sample NSN SNapshot Display (Page 1) 
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View 5 



Due-Ins 



Total - 26 
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Document 
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Shipped 


Code 


Code 


Date 


DDK 


N0065182350507 


/ 
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View 6 
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Figure 1 1 Sample NSN Snapshot Display (Page 2) 
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Appendix F shows the NSN Snapshot with the DEN numbers inserted in the place of 
the data. 

The NSN Snapshot is actually an ALIS compound document. The view presented 
to the inventory manager is a document composer window. The data presented is 
actually from a spreadsheet. Figure 12 shows how the document and spreadsheet are 
integrated together. 



Document Composer 



NSN Snapshot 



00-051-9587 



Nov 18, 1988 



:NSN. 7 R E 1 61 5-00-051 -9567 SMIC;MH 

Name- Swash Plate, Assy 

SRtPR- SS_SZ LRC : 5 M T Wear Out:: 0.04 

RIC: GB48RX PLT: 18 Survival: 0.99 \ 

Source: PA IMC: E Entry dtd: 68064 

std price : $39,580.00 Net Price: $3,410.00 
RPL PRICE: $41,776.00 Unit Issue; EA 



Spreadsheet 





A 


B 


C 


D 


E 


F : 


1 


NSN; 


7 R E 161 


>-00-051- 


) 587 


SMIC: 


WH i 


2 


Name : 


Swash PI, 


tte, Assy 








: 3 


SRIPR : 


SS_SZ 


LRC 


5MT 


Wear Out 


.0.04 i 


4 


RIC: 


GB48RX 


PLT: 


1 8 


Sru viva 


. 0.99 


5 


Source; 


PA 


IMC: 


E 


Entry dtd 


: 6806 


6 


std price 


$ 39 , 58 ( 


1.00 


(Net Price : 


$3,4 1 i 


LOO 


7 


Rpl pric 


s: $41,771 


LOO Unit 


Iss ul: 


EA 





Figure 12 Compound Document, NSN Snapshot 
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To create the NSN Snapshot the following steps are used: 

• Program NSN5B is run on the IBM 3090. (1 am, nightly) 

• The NSN5B data files are transferred from the IBM 3090 to the Sun 3/160 
server. (2 am, nightly) 

• The Sun 3/160 executes a batch program that logs in a phantom user on the 
server. The phantom user enters ALIS. (2:30 am, nightly) 

• As the phantom enters ALIS, the login macro is executed. This macro builds or 
updates the NSN Snapshot as appropriate and then logs out the phantom user. 

Figure 13 provides a detailed flow chart of the actual thought process and edit checks 

of the phantom user’s login macro. A separate NSN Snapshot is created for each stock 

number. The NSN Snapshots are Filed, by NUN (01-123-1234), in a central file area. 

The NSN Snapshots are accessible on a read only basis to the inventory managers. 

Appendix G contains the login macro command document. When the phantom user has 

finished, the NSN Snapshots are located in a central filing area. From the central filing 

location, the NSN Snapshot can then be accessed on a read only basis by the inventory 

manager. When the inventory manager calls up the NSN Snapshot for a specific stock 

number, he or she is actually receiving a compound document inset with a live 

spreadsheet. This live spreadsheet could then be used to support the processing of 

Supply Demand Reviews. A section in the spreadsheet could be added that makes use of 

NSN Snapshot data to perform buy calculations. 



65 



Phantom user is logged in 
and enters ALIS. 



Login Macro is 
executed . 



Variables are 
decla 1 r ed . 




Bead the 1st line of: 
OFILE5, OFILE6, OFILE8 
OF I LE 9 , OF I LE 10, OFILE11 
OF I LEI 2 

extract 1st 9 characters 
to determine NIIN. 





Bead OFILE1 and 
extract each DEN, 
hold in memory. 



Bead OFILE2 and 
/'if NIIN - ofilel NIIN 
then extract each DEN 
and hold in memory 
else skip. 





1 




Bead OFILE3 and 
if NIIN - ofilel NIIN 
then extract each DEN 
and hold in memory 
else skip to next routine. 



If OFILE5 NIIN - OF I LEI NIIN 
read OFILE5 and extract DENS else skip 
then read next line, check next NIIN 
If new OFILES NUN - OFILE1 NIIN 
extract DENS, check for next NIIN 
hold all DENS in memory 
When OF I LE 5 NIIN <> OFILE1 NUN skip 




NEXT PAGE., 



If OFILE6 NUN - OFILE1 NIIN 
/read OFILE6 and extract DENS else skip 
then read next line, check next NIIN 
If new OF I LE 6 NUN - OF I LEI NUN 
extract DENS, check for next NIIN 
hold all DENS in memory 
vWhen OFILE6 NIIN <> OFILE1 NUN skip 



Figure 13 NSN Snapshot Construction (page 1) 
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I 




If 0FILE8 NUN - 0FILE1 NUN 
ad 0FILE8 and extract DENS else skip 
then read next line, check next NUN 
if new OFILE8 NUN - 0FILE1 NUN 
extract DENS, check for next NIIN 
hold all DENS in memory 
When OFILE8 NIIN <> OFILE1 NIIN skip 




If OFILEIO NIIN - OFILE1 NUN 
ead OFILEIO and extract DENS else skip 
then read next line, check next NIIN 
If new OFILEIO NUN - OFILE1 NIIN 
extract DENS, check for next NIIN 
hold all DENS m rerr.ory 
.When OFILEIO NIIN <> OFILE1 NIIN skip 




/ If OFILE12 NIIN - OFILE1 NUN 
read OFILE12 ar.d extract DENS else skip 
then read next line, check next NUN 
if new OFILE12 NIIN - OFILE1 NIIN 
extract DENS, check for next NUN 
hole all DENS in memory 
hen OFILE12 NIIN <> 0FILE1 NIIN SKip 

\ 




If OFILE9 NIIN - OFILE1 NIIN 
/read OFILE9 and extract DENS else skip 
then read next line, check next NIIN 
if new OFILE9 NIIN - OFILEl NIIN 
extract DENS, check for next NIIN 
hold all DENS in memory 
\When OFILE9 NIIN <> OFILEl NIIN skip 




If OFILE11 NUN - OFILEl NIIN 
fead OFILEll and extract DENS else skip 
then read next line, check next NIIN 
if new OFILEll NIIN - OFILEl NIIN 
extract DENS, check for next NUN 
hold all DENS m memory 
When OFILEll NIIN <> OFILEl NUN skip 




All DENS for this 
NIIN have been pulled. 




Create Spreadsheet 
using sty^e guide 
snap_l_s s 



open spreadsheet 
"NIIN + SS ♦ 1” 

(eg; 01-021-1355 ss 1)\ 



Remove old DEN values 




Write new DEN values to 


from spreadsheet. 




spreadsheet . 



Next Page 



Figure 13 NSN Snapshot Construction (page 2) 
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I 




Figure 13 NSN Snapshot Construction (page 4) 



D . INVENTORY MANAGEMENT MENU CONSTRUCTION 

To make the DSS easier to use, a special inventory management menu was 
constructed. It allows the inventory manager to rapidly access inventory management 
data. When the inventory manager types the key sequence <Command Key>, "M" the 
"Inventory Management" menu appears. It offers the choices of: 

• NSN Snapshot 

• Requisition Processing 

• NSN Notebook 

• Cyclic View 

Figure 14 shows how the menu appears to the inventory manager. 
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M = 


_ Inventory Management _ 


.0 


CD 


NSN Snapshot 


CD 


Requisition Processing 


CD 


NSN Notebook 


CD 


Cyclic View 




Exxt Program 


Pick 


an option: 



Figure 14 Inventory Management Menu 



After the menu appears, the inventory manager types the key letter, or clicks on the 
circled letter with the mouse. A window then appears requesting the stock number of 
the item of interest. In the case of the NSN Snapshot, the program changes the 
directory to the shared library and extracts the NSN Snapshot for the item requested. 
The program is now completed and the inventory manager has the NSN Snapshot for 
the requested stock number in an open window. The inventory manager can then work 
with the requested NSN Snapshot or request additional NSN Snapshots for other 
stock numbers. The window can also be set aside (as an icon) for future use. A 
maximum of 20 windows can be open on the ALIS desktop at a time. Appendix H 
contains the various macros used to build the Inventory Management Menu. 

E. NSN Notebook 

Miscellaneous information like pending technical changes or details of a contract 
expedite action is maintained by the inventory managers in an ad hoc manner. In many 
cases, the information is kept on an intermittent basis. Additionally, a standard format 
for recording the information onto the 730 cards does not exist. The information is 
lost to his or her fellow workers, when the inventory manager is not available, because 
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the paper records are kept as a personal notebook. The inventory managers stated that 
this information needs to be available to all the members of the inventory manager’s 
team and his or her supervisors. 

The NSN Notebook was designed to replace the paper records that the inventory 
managers are presently keeping. The NSN Notebook provides inventor)' managers with 
a consistent method of storing and retrieving miscellaneous management information. 
The NSN Notebook is also an element of the DSS. By providing convenient, fill in the 
blank menus, the inventory manager has an easy way of recording the information. The 
fill in the blank menu provides a standardized method of gathering data. By providing 

prompts like: (Contract Number: ) the inventory manager is reminded that 

this information is valuable and needs to be saved. Therefore the information is saved 
in a consistent manner, and because it is in a central file, the information is accessible 
to all members of the management group. 

When the NSN Notebook is selected from the Inventory Management Menu, the 
inventory manager is prompted to enter the NIIN for the he wishes to work with. 
Next the inventory manager is offered the choice of nine NSN Notebook functions 
such as viewing the Notebook data or entering new data for the NUN. Figure 15 
shows the notebook input selection menu and the various input menus. 
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• : Stock. Number Notebook | 



Please enter the NUN for the item that vou 
want to add or read information about. 

Format 01-123-1234 
Requested NUN: 



[HE 



Notebook. Selection Menu 



mn 



Please Select the function you need. 

O View the Stock Number Notebook 

(ff) Alternate NUN Information 

© Contract Expedite Information 

(R) Contract Reconsignment Information 
Q Contact Termination Information 

(F) Points of Contact for this NUN 

(C) Pending Change Information 

(N) Misc Notes & Remarks 

(R) Exit this Program 



Pick an Option: 



Alternate NUN Information 



Alternate NUN Information 

Please incut alternate NUN information 
for: 00-123-1234 

Alt *1: 

Alt *2: 

Alt #3: 

Alt #4: 

Alt #5: 

Alt #6: 



Hit return for blank fields 



Contract Expedite Information 




Contract Expedite Information 



Please input Contract Expedite Information 
for: 00-123-1234 

Contract Number: 

Mes sage /Let t er : 

Reply Date: 

Qty: 

CLIN: 

Received Delivery: 

Hit return for blank fields 



Figure 15 NSN Notebook Menus (Page 1) 
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m 



Contract Reconsignment Information: 



a 



Contract Reconsignment Information 



Please input Contract Reconsignment Information 
for: 00-123-1234 

Contract Number: 

Message/Letter : 

From Destination: 

To Document Number: 

Est Delivery Date: 

Qty : 

Hit return for blank fields 



s 

Contract Termination Information 

Please input Contract Termination Information 
for: 00-123-1234 

Contract Number: 

Termination date: 

Terminated (Y or N) : 

Original Quantity Due: 

Terminated Quantity: 

Balance Due: 

Hit return for blank fields 



Contract Termination Information 




Points of Contact Information 




Points of Contact 



Please input Points of Contact for: 00-123-1234 

Last Name: 

■ First Name: 

Company / Command: 

Code / Division: 

Commercial phone number: 

Autcvon phone number: 

Hit return for blank fields 

Use the Misc Note form for mailing addresses 



Figure 15 NSN Notebook Menus (Page 2) 
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Ponding Change Information : 






Pending Change Information 

Please input Pending Change information 
for: 00-123-1234 



Line #1: 

Line #2: 

Line #3: 

Line #4: 

Line #5: 

Line #6: 

Hit return for blank fields 




Figure 15 NSN Notebook Menus (Page 3) 



F. REQUISITION PROCESSING 

At the time of the writing of this thesis, the final elements of the requisition 
processing flow chart were not completed. The data manipulation elements are ready, 
only the work on the decision matrix needs to be completed. When it is finished in 
January 1989, the decision matrix will provide the decision rules that apply to each 
type of requisition. 
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Requisition processing will be handled in the following manner: 

• Requisitions are received by the IBM 3090. 

• Using the LRC, requisitions for WMB51 will be identified and transferred 
to the Sun 3/160. 

• Upon receipt of the requisition, the UNIX operating system will activate 
the phantom user account assigned for requisition processing. 

• The phantom user will read the file for each requisition. The file will be 
moved into a spreadsheet. The method is similar to the one used in the NSN 
Snapshot process. 

• The phantom user then runs a macro which will save the spreadsheet in the 
central filing area and send a message to the appropriate inventory manager 
and his/her supervisor that a requisition needs to be processed. 

• When the inventory manager selects the requisition processing option from 
the Inventory Management Menu, he will be presented with a list of the 
requisitions for his LRC that need to be processed. 

• The inventory manager then selects the requisition he wishes to process. 

• A view of the requisition will appear in a window. The NSN Snapshot for 
the stock number being requested will appear in another window. A third 

window will contain a dialog box^ which will use a macro which is based 
upon the decision matrix to assist the inventory manager in properly 
handling the requisition. 

• The dialog boxes will present the inventory manager with choices. After 
each choice a new dialog box will appear. The program continues on until 
another decision is required. 

• After the decision making phase of the macro has been completed, the 
macro will format a file. The file will contain the 80 card column image the 
data entry clerk would have entered into the IBM 3090. This file records 
the inventory managers decisions concerning the requisition. 

• The file is then transferred to the IBM 3090 and placed in the batch queue 
for UICP. The queue is read into a UICP program which will issue a 
shipment order and will issue a requisition status message to the requisi- 
tioner based upon the 80 card column image. 

• The macro then deletes the requisition from the DSS’s central file. 

• The inventory manager is then told if additional requisitions need to be 
processed and, if there are, the inventory manager is asked if he or she 
wishes to continue processing requisitions Based upon the response the 
macro is re-executed or exited. 



3 A menu which offers the user several possible choices and asked him or her to 
select one. 
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This DSS macro provides a consistent method for processing requisitions. 
Additionally, because the data is transmitted directly from the minicomputer to the 
mainframe, the number of data input errors is reduced. The requisition processing 
module will expedite the requisition processing process, provide a more consistent 
method of acting upon the requisition and reduce the chances of data entry errors. 

G. CYCLIC VIEW 

The Cyclic View will provide the inventory manager with historical data presently 
given on the consolidated stock status report (CSSR). This information allows the 
manager to look at past demand trends to gauge whether a sudden increase or decrease 
in demand is due to a single aberration or is happening on a recurring basis. This 
historical information needs to be considered as part of any future buy computations. 
The cyclic view will take data elements from the UICP database and copy them into the 
NSN snapshot spreadsheet. A separate area of the spreadsheet for the Cyclic View will 
be maintained. When the Inventory Manager selects the Cyclic View from the 
Inventory Management Menu he or she will be presented with a compound document, 
inset with the spreadsheet containing the Cyclic View. Additionally a graph showing 
the historical demand trends for the item will be available. The COBOL program to 
extract the required data elements is presently being written by Mr. Rosen and the 
NAVSUP interns. It is expected that the COBAL program and the ALIS macro will be 
completed in March 1989. 
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H. SUPPLY DEMAND REVIEW 



The UICP model BIO (Supply Demand Review) provides recommendations for 
quantities of an item to buy. Presently the recommendations are printed and delivered 
to the inventory manager along with various management data. The manager then 
reviews the recommendations, modifies parameters he or she does not agree with, 
recomputes the quantity to procure and prepares a procurement package that is 
forwarded to the procurement section. The Supply Demand Review processing module 
will receive the recommendations from the mainframe and display the recommendations 
for the IM’s review. The program will then recompute a new procurement quantity 
using data elements present in the NSN Snapshot spreadsheet and then prepare a "buy 
package”. This module is scheduled to be finished in February 1989. 

I. STYLE GUIDES AND OFFICE AUTOMATION 

ALIS provides the ability to use style guides. Style guides are blank documents, 
spreadsheets, graphics and databases that have certain parameters predefined. When the 
inventory manager wants to create a letter for official correspondence, he or she will 
select the "Create a document" choice from the main menu and ask for the appropriate 
style guide. When the document appeared, it would be in the proper format and the 
cursor positioned such that he/she is prompted to provided information that is needed 
for the headings. This same method could be used with spreadsheets to compute initial 
procurement quantities. The inventory manager would be prompted for various 
information which would be used for the computation. 

Today much of the work done by the inventory manager is handled in an 
independent manner and enforcing standards is difficult. The style guides will help to 
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ensure that the standards are followed. The consistency of computations done by 
personnel within the branch, and the consistency of the formats of written messages 
and correspondence from the branch can also be improved through the use of style 
guides. This subtle assistance makes the style guide part the DSS. If the administrative 
load on the inventory managers can be reduced, their overall productivity, and time 
spent actively managing items, can be increased. 



78 



VII. SUMMARY, CONCLUSIONS AND RECOMMENDATIONS 



A. SUMMARY 

The primary goal of this thesis was to develop a workstation designed to assist the 
inventory manager in performing his or her work in a more efficient manner. By 
presenting UICP data to the item manager in a well designed, consistent manner, the 
potential exists for the inventory manager to work more efficiently. A major element 
in the presentation of the UICP data on the inventory manager’s workstation is the 
decision support system. 

Working closely with the inventory managers from ASO’s Code WMB51, the 
identification of the UICP data they need to perform their work was accomplished. By 
listening closely to inventory manager’s requirements and how the inventory manager’s 
would like to see the UICP information displayed, the development of an IM Worksta- 
tion that represents their heuristics was possible. 

Using the hardware and software procured specifically for this thesis and the 
heuristics provided by the inventory managers a sample IM Workstation was developed. 
This thesis has demonstrated that an IM Workstation can be constructed. As a 
consequence a prototype 16 user system for WMB51 is now being contracted for. 

The sample workstation was tested by the inventory managers of the WMB51 
branch. The functions tested, in addition to the office automation features inherent to 
ALIS, were: 

• Inventory Management Menu 

• NSN Snapshot 

• NSN Notebook 
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• Sample requisition processing screen 

• Sample style guides for official letters and naval messages 

The inventory managers, after a demonstration of workstation, were allowed to work 
with the various functions. After becoming familiar with the mouse and the windowed 
environment provided by ALIS on a SUN workstation, the inventory managers didn’t 
experience any difficulty using the various functions. They expressed surprise that 
snapshot and notebook they had help designed, on paper, could be transformed to a 
computerized system. The inventory managers were enthusiastic with the sample system 
for both the custom functions, and the general office automation provided by ALIS. 
The unanimous feeling was that the IM Workstation would greatly improve the 
efficiency and quality of life for inventory managers and they were anxious to receive 
the prototype system. 

The perception by the inventory manager was that the DSS was only an additional 
option, like the spreadsheet, and not actually a way to shape their actions in consistent 
manner. This perception was gained because the inventory manager’s felt that the IM 
Workstation was their system, which it is. This thesis facilitated the inventory 
manager’s desires and made them into a workable system. The inventory managers are 
a very intelligent (and computer literate) group of people. They had an image of what 
they were looking for in a computerized system, how it could improve their efficiency 
and what they could do with the UICP system given the proper tools. Once they 
understood what a possible IM Workstation could do, they provided a very detailed list 
of requirements. 
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B. CONCLUSIONS 



The IM Workstation, even in the form of the sample system, shows that a DSS to 
support inventory management is possible. The fact that the inventory managers could 
have such a constructive part in the development shows that previous methods of 
developing computerized systems in a vacuum, with little or no user involvement, have 
been surpassed. 

The extended language facility (ELF) of ALIS provides an easy to learn and use 
programming tool. Programmers, using the ELF facility, would be responsive to the 
needs of the inventory managers, providing a rapid response to changing situations. 
The programmers would most probably be computer literate inventory managers under 
the guidance of a trained management information specialist. 

The SUN Microsystems hardware selected to develop the sample system was only 
one of many possible hardware solutions. Because the core software, ALIS, will 
operate on over 20 different computer systems, the system will transportable. With 
the IM Workstation, all the hardware can be competitively procured, removing the 
barrier normally experienced when a system is procured sole source. 

This thesis shows that a complex system like UICP can be made user friendly and 
more effective use made of its information. Additionally, it shows that the quality of 
life for inventory managers can be improved, while increasing their efficiency. A 
system like this or something equivalent to it is needed as soon as possible by the 
inventory managers. 
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C. RECOMMENDATIONS 



Now that a sample system has been developed and a prototype system is being 
contracted for WMB51, the following functions discussed in Chapter six need to be 
finished: 

• Additional error checking sub-routines for the programs already written. 

• Requisition processing 

• Cyclic view 

• Supply demand review (SDR) processing 

• Additional style guides for documents, spreadsheets and database. 

Additional functions that would add additional value to the IM Workstation, but need 
to be explored are: 

• Expen systems to assist the decision making process. 

• Scanning of contracts to be optically stored for easy retrieval. 

• A system to produce requests for proposals (RFPs) and contracts. 

• A consolidated inventory management and contracting system. 

• A distributed database system, using the same database software on each 
computer level, to allow transparent sharing of data and process sharing. 
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APPENDIX A 



UICP REAL TIME RETRIEVAL (A02) PROGRAM DESCRIITIONS 1 

PROGRAM DESCRIPTION 

AS PROVIDES ITEM STOCK STATUS 

BA PROVIDES ITEM INFORMATION FROM THE VARIOUS SEGMENTS OF 

THE MDF, PS I, TRF 

BB PROVIDES FSCM/REFERENCE NUMBER TO STOCK NUMBER CROSS- 

REFERENCE INFORMATION 

BC PROVIDES DATA FROM THE CASREP REQUISITION FILE 

BD PROVIDES PRESERVATION, PACKAGING, TRANSPORTATION AND 

COGNIZANCE DATA 

BE PROVIDES SUPPLY ITEM TECHNICAL DATA PERTINENT TO PROCURE- 

MENT REFERRALS OR REQUIRED ITEM MANAGEMENT DATA FROM 
THE SPECIFIED APPLICATION ENTRY 

BF PROVIDES SUPPLY ITEM TECHNICAL PROCUREMENT DATA 

BJ PROVIDES DATA FOR UP TO ANY TEN DATA ELEMENT NUMBERS 

(DEN) AND UP TO ANY TEN STOCK NUMBERS IN THE MDF, PSI, TRF 
ORONF 

BK PROVIDES DATA NECESSARY FOR TECHNICAL ANALYSIS PERTINENT 

TO THE PROCUREMENT OF AN ITEM 

BM PROVIDES DATA FROM THE MATERIAL RETURN PROGRAM SUS- 

PENSE FILE (MRP) 

CB PROVIDES DATA CONTAINED IN THE CHANGE NOTICE SUSPENSE 

FILE / EFFECTIVE DATE SUSPENSE FILE 

CD PROVIDES DATA FROM THE BACKORDER FINDER FILE (BOF) 



1 Actual help screen from online A02 retrival program, presentation edited for 
printed clarity. 
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CH 

CL 

DA 

DB 

DC 

DE 

DF 

DJ 

EF 

KQ 

MB 

NA 

NB 

ND 

OU 

RS 

WA 



PROVIDES DATA FROM THE PLANNED PROGRAM REQUIREMENTS 
FILE (PPR) FOR A SPECIFIC ITEM OF SUPPLY 

PROVIDES DATA FROM THE DUE-IN/DUE OUT FILE (DDF) 

PROVIDES DATA FROM THE REPAIRABLES MANAGEMENT FILE (RMF) 

PROVIDES DATA FROM THE REPAIRABLE EVENTS FILE (REF) 

INPUT BATCH RETRIEVAL REQUESTS TO A10AX 

PROVIDES CARCASS TRACKING RECORD TYPE "C" DATA FROM THE 
CARCASS TRACKING RECORDS FILE (CTR) 

INPUT BATCH REQUEST TO PROGRAM B35UV (CARCASS TRACKING 
RECORDS NUN RETRIEVAL) 

PROVIDES RETRIEVAL OF UP TO TEN DATA ELEMENT NUMBERS 
(DEN) FOR UP TO ANY TEN REPARABLES MANAGEMENT FILE (RMF) 
RECORDS. 

PROVIDES STOCK NUMBER CROSS-REFERENCE DATA FOR UP TO 
EIGHT FSCM / REFERENCE NUMBERS 

PROVIDES USAGE ACTIVITY RATES, STATISTICS, AND RETAIL 
REQUIREMENTS INFORMATION DATA FROM THE AVIATION RETAIL, 
MANAGEMENT FILE (ARM) 

PROVIDES DATA FROM THE INDIVIDUAL COMPONENT REPAIR LIST 
FILE (ICR) 

PROVIDES DATA FROM THE CONTRACT STATUS FILE (CSF) 

PROVIDES PURCHASE WORKSHEET DATA FROM THE CONTRACT 
STATUS FILE (CSF) 

PROVIDES DATA FROM THE SUPPLIERS DATA FILE (SDF) 

PROVIDES THE NAVYS ORDER OF USE FOR DOD INTERCHANGEABLE 
AND SUBSTITUTABLE FAMILYS WHERE THE NAVY IS THE PRIMARY 
INVENTORY CONTROL ACTIVITY 

PROVIDES DOCUMENT STATUS FILE (DSF) DATA FOR A SPECIFIED 
DOCUMENT NUMBER 

PROVIDES OPTION TAILORED WEAPONS SYSTEMS FILE (WSF) DATA 
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WB PROVIDES DATA FOR UP TO TEN NEXT HIGHER ASSEMBLIES (NHA) 

FOR UP TO ANY TEN APLS, AELS, OR EQUIPMENT MODEL CODES 

WC PROVIDES APPLICATION DATA AND ALLOWANCE LIST DATA FOR A 

SPECIFIC STOCK NUMBER 

WG PROVIDES WSF NEXT LOWER ASSEMBLY CHAIN EXTRACT DOWN TO 

FOUR LEVELS OF INDENTURE 

WJ PROVIDES UP TO ANY TEN NON-REPETITIVE DATA ELEMENTS FOR 

UP TO ANY TEN WEAPONS SYSTEMS FILE (WSF) LEVEL A, B, OR C 
PRIMARY RECORDS 

WK PROVIDES UP TO ANY TEN NON-REPETITIVE DATA ELEMANTS FOR 

UP TO ANY TEN RECORD IDENTIFICATION NUMBERS (RIN) IN THE 
WEAPONS SYSTEMS FILE (WSF) 

WQ INPUT BATCH RETRIEVAL REQUESTS TO WEAPONS SYSTEMS FILE 

PROGRAM A 10EX 

YA PROVIDES WEAPONS SYSTEMS FILE (WSF) PROGRAM WA DATA 

WITH A NOMENCLATURE INPUT. NOMENCLATURE IS CROSSED TO A 
WSF KEY IN THE NOMENCLATURE TO RIC FILE (NRF) 

YC PROVIDES PART / EQUIPMENT APPLICATION / POPULATION DATA. 

YE PROVIDES DATA FROM THE MDF, PSI, TRF AND WSF WHICH IS 

NECESSARY FOR THE MANAGEMENT OF THE SHIPBOARD EQUIP- 
MENT CONFIGURATION ACCOUNTING SYSTEM (SECAS) 

YG PROVIDES DATA FROM THE NOMENCLATURE TO RIC FILE (NRF) 

FROM THE WEAPONS SYSTEMS FILE (WSF) NECESSARY FOR THE 
MANAGEMENT OF THE SHIPBOARD EQUIPMENT CONFIGURATION 
ACCOUNTING SYSTEM (SECAS) 
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APPENDIX B 



REVIEW OF A! IS FEATURES 

1. INTRODUCTION 

ALIS is an integrated office automation software package that operates under a 
variety of computer operating systems. The software contains a word processor, 
spreadsheet, personal database, graphics editor, electronic mail, calendar, and file 
management modules in a tightly integrated package. The Graphical User Interface has 
an icon based (object oriented) information management system, with multiple windows 
that makes use of a mouse. It is very similar to the Apple Macintosh style interface, 
with greater consistency between the modules. Electronic mail can be sent via the 
Simple Mail Transport Protocol (SMTP) used by the Transport Control Protocol / 
Internet Protocol (TCP/IP) standard established by the Department of Defense and used 
widely to connect dissimilar computer systems, IBM DISOSS and CICS mail via a 
gateway package, standard UNIX mail and Digital Equipment Corporation’s DEC mail. 

2. OPERATING SYSTEMS 

ALIS version 2.0 is presently ported to over 20 UNIX based systems. These 
include SUN Microsystems servers and workstations, IBM RT PC, any Intel 80286 & 
80386 based system operating under XENIX and Hewlett-Packard HP9000 series 
workstations. The system also will operate under AT&T’s UNIX system V, Berkley 4.2 
UNIX, Apollo’s Aegis, and Digital Equipment Corporation’s (DEC) Ultrix operating 
system. Additionally ALIS will run on any of DEC’S family of VAX computers under 
the VMS operating system. The large number of platforms that ALIS can operate on, 
and the range of systems available from personal computer to mainframes, does not 
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impose a limited on the number of users, mass storage or response time. Further 
flexibility is afforded via the ALIS capability to use macros and data created on one 
system (UNIX), without translation for use on other systems (VAX VMS). This allows 
dissimilar systems installed at one site to be able to work together as a cohesive group 
and exchange information. 

3. EQUIPMENT CONFIGURATIONS 

ALIS is very flexible in how the CPU processing and file storage is distributed. 
The base configuration Could be a central computer (Intel 80386, SUN 3/160, DEC 
VAX 8800) with one console device and multiple ANSI X.64 "dumb" terminals. In 
this configuration only the console would have the complete "Graphical User Interface" 
(windows) which could use a mouse. The terminals would have a character based display 
(similar to IBM’s PROFS or DEC’s ALL-IN-1) and use the system with function key 
commands. Non-graphic terminals would not be able to display business graphics. All 
processing and storage occurs on the central computer’s CPU. 

The next higher configuration would use the same central computer. The 
computer would be connected to a network (Ethernet or Token Ring) running the 
TCP/IP protocol. Instead of the ANSI X.64 terminals each user is given an MS-DOS 
based personal computer (PC) connected to the network with an interface card. An 
MS-DOS based product called "PC-ALIS" is used. This product allows each PC to have 
a complete graphical user interface, including mouse support, which utilizes all of 
ALIS’s features. PC-ALIS is an intelligent terminal emulator which uses TCP/IP to 
communicate with the central CPU. The processing load is split between the central 
computer (which handles file storage, computations and network interface) and the PC 
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(which handles the screen processing). For example if a spreadsheet graph is updated, 
the central CPU processes the changes. Simultaneously the PC sends and then receives 
the updates and paints the screen to reflect the changes. Since the bit mapped screen 
imaging used to create the graphical user interface is a high overhead item , the 
distribution removes some of the load from the central CPU. 

The highest level configuration has a central CPU acting as a file server. This 
network hub (SUN 3/260 or DEC VAX 8800 server) has multiple UNIX or VMS based 
workstations connected to it via an Ethernet (Eg; SUN NFS (network file system) 
protocol for UNIX or DEC’s DECNet protocol for VAX VMS). Each workstation 
would process its own tasks and use the server for storage and network services (mail, 
printing tasks, file transfers). Each workstation would have a complete graphical user 
interface with mouse support. This is what the XEROX Palo Alto research center 

defined in 1981 as the optimal information system. ^ Individual workstations are 

connected to a central file server via an Ethernet. Each workstation would have a 
graphical user interface, featuring multiple windows, a consistent user interface, with a 
mouse based pointing device. It has taken 8 years for computers and ethernets to have 
sufficient speed and power to make this optimal system feasible. 

4. USER INTERFACE 

The "XEROX Star" style interface is best known for its implementation on the 
Apple Macintosh computer. Partial implementations of the interface are also seen in 



2 Designing the Star User Interface, Dr David Smith etal, XEROX Corp., Byte 
Magazine, April 1982 pp 242-282. 
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Microsoft’s Windows and IBM’s planned Presentation Manager for the OS/2 operating 
system. Much of IBM’s planned Systems Application Architecture (SAA) is based upon 
the Star interface methodology. Visually the ALIS system appears as an extended 
version of Microsoft Works for the Macintosh. The ALIS system contains all the 
elements (windows, icons, mouse, integrated graphics and text) that have made the 
Macintosh popular while overcoming many of its failings. By taking advantage of a 
powerful minicomputer or larger system, ALIS users do not experience the delay times 
associated with the Macintosh. Further ALIS is designed for working with a group and 
sharing information. Conversely the Macintosh is limited to simple file sharing via an 
Apple-Talk network which experiences long delays waiting for file from a central 
storage location, or to and send files to a central printer. UNIX and VAX VMS were 
designed with multitasking, networking and telecommunications in mind. This allows 
full background operations such as mail transfers, print spooling and batch processing. 

Like the Macintosh, the user can start and stop tasks via a click of the mouse. 
Multiple windows can be opened and information traded between windows via a cut and 
paste operation. Unlike the Macintosh, ALIS offers dynamic linking. The dynamic 
linking is one of ALIS’s most powerful features. Dynamic linking allows information 
from spreadsheets, databases and graphics to be linked. If the spreadsheet is updated 
with new data the links to the database, other spreadsheets and documents are updated. 
For example, if the latest quarters sales are entered into a spreadsheet and average sales 
are generated, then reported via a document ALIS would automatically generate the 
new sales average and enter them into the designated spot of the document. ALIS also 
has an easy to use macro generator. Unlike the Macintosh, ALIS allows menu 
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generation, information query pop-up windows and the ability to have one macro 
access the various modules and perform a complex operation. The macro could for 
example, read the database, input data into the spreadsheet, compute a number and 
update an associated graph. The macro then places the new number and updated graph 
into the document, sends the document via electronic mail, to a distribution list. This 
total sequence could be triggered from a single menu pick. 

5. WORD PROCESSOR 

The document composer is a full feature word processor with all the features of 
Word Perfect ver 5.0 less a thesaurus. ALIS allows graphics and spreadsheet tables to 
be integrated into documents, but unlike Word Perfect, it uses a cut and paste 
operation that does not require extensive file manipulation. It makes full use of the 
mouse and also has a WYSIWYG (What you see is what you get) display that shows 
both the fonts and graphics exactly as they will be printed. ALIS offers 5 fonts and 
from between 6 to 36 points. The system also allows the import and export of IBM 
DCA RFT, ASCII, and NavyDIf file formats. This allows the transfer of documents 
between ALIS and IBM systems, standard word processors and PC based word 
processing systems. 

6. SPREADSHEET 

The spreadsheet has all the features of Lotus 1-2-3 and a look and feel that is very 
similar to Microsoft’s Excel. It makes use of the mouse and has an array of 702 X 
9999 cells. Since the system is UNIX or VMS based and uses virtual memory there is 
no limit on the practical size of the spreadsheet. It has inter-spreadsheet referencing 
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(3D) like Boeing Calc or Lucid 3D. The system allows import and export of Lotus 
1-2-3 WKS files, DIF, Multiplan and Excel (SYLK) files. 

7. PERSONAL DATABASE 

The database is a flat file database designed to handle small size data requirements. 
It is similar to Borland’s Reflex and IBM’s Filing Assistant. The module is best used 
to hold data from larger system or for personal databases (to do list, phone directo- 
ries and mailing lists). It allows import and export of DIF files. 

8. GRAPHICS EDITOR 

This module is a complete graphics and drawing package. It has features similar to 
Media Cybernetic’s DR HALO and Software Publishing Corporation’s Harvard 
Presentation Graphics. Additionally the package allows business graphics created from 
spreadsheet data to be edited and annotated. HP-GL formatted graphics and FAX images 
can be imported and saved as separate objects and also included into compound graphics 
images. 

9. ELECTRONIC MAIL 

ALIS can send and receive compound documents to other ALIS systems without 
regard for the recipient’s operating system. The system can also send and receive 
standard UNIX mail (text format only), DEC Mail and with gateways most IBM 
systems. Additionally, the system has a pop-up phone message, in the format of phone 
message slip, which allows a message to be sent that call was received while the 
recipient was out. 
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10. CALENDAR MANAGEMENT 



The calendar management system provides for both personal time management and 
resource scheduling. It contains the features of IBM’s PROFS and DEC’s ALL-IN-1 but 
additionally allows the calendar to be accessed and viewed while working on other 
documents. It also contains an activity planner, delegate tasks and schedules resources 
(meeting rooms, projectors and personnel). 

11. MISCELLANEOUS 

The ALIS system supports a wide variety of printers. Support includes HP 
laserjet, postscript printers, HP-GL plotters and dot matrix printers. The file 
management systems is presented to the users organized as a series of File cabinets and 
folders. The system allows document searching and keyword retrievals. Files can be 
shared between users and access can be controlled. 

ALIS is written in the "C" programming language. Applix Inc. offers an integra- 
tion toolkit. This allows non-ALIS products to be integrated into the ALIS environ- 
ment. An SQL database can be made part of the system with the toolkit. This allows 
data to be pulled out of the SQL database and moved into other modules. The SQL 
database can also provide a window to allow data input and display. Applix Inc. offers 
an IBM 3270 terminal emulation window. 
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11. SUMMARY 



ALIS is a distinctive integrated system with several key features that differentiate 
it from similar products: 

• Operating on computers from different manufacturers, it allows the 
computer hardware to be competitively procured while providing a consis- 
tent user interface usually not available when different brands of computer 
are installed. 

• Running on any size machine, ALIS eliminates the need to change application 
software when a larger machine is required. 

• Benefiting from hardware independence, a cost effective configuration can 
be developed for the smallest office or the largest corporation. When 
expansion is necessary, replacement of the current equipment and training is 
not required. Rather, additional equipment is added to the network and the 
current training program and application software is retained. 

• Integration of dissimilar systems is much easier with ALIS’s excellent 
telecommunications capabilities. 

• For computers larger then personal computers ALIS is the only software 
product that provides the "XEROX Star" interface. This style interface 
makes the system easy to learn and use. 
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APPENDIX C 



DATA ELEMENTS SELECTED BY INVENTORY MANAGERS AND THE ASSOCI- 
ATED A02 PRODUCT THEY APPEARED IN. 



DEN AS BK CD CH CL EF NA NB RS AL hits avg 



D046D 

C003 

K002 

B002 

C035 

C003A 

CO 03B 

A001 

K024 

B053 

K025 

C004 

K006 

C042 

K005 

B011A 

L022 

K001 

K026 

L001G 

L010 

E089 

KOI 1 

L001A 

K017 

L009 

A012A 

B081 

C003E 

C005 

L033 

A008B 

AO 11 

AO 12 

B074 

D001 

K034 

K036 



5 6 

6 6 

0 0 

6 4 

0 7 

3 2 

2 2 

2 0 

0 0 

0 5 

0 0 

0 5 

0 0 

2 3 

0 0 

5 6 

0 0 

0 0 

0 0 

0 0 

0 0 

0 4 

0 0 

0 0 

0 0 

0 0 

1 0 

0 0 

1 0 

0 1 

0 0 

7 0 

7 0 

7 0 

7 0 

0 7 

0 0 

0 0 



4 1 

5 1 
7 3 
5 1 
0 0 
2 1 
2 1 
0 4 
7 4 
3 0 
7 1 
0 1 
0 4 
0 1 
0 2 
0 0 
0 0 
0 4 
3 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 3 
0 0 
0 1 
0 0 
0 1 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
7 0 
7 0 



4 3 

0 3 

1 2 

0 3 

0 3 

0 0 

0 0 

7 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

2 0 

0 0 

6 0 

3 0 

0 0 

0 0 

5 0 

0 0 

4 0 

0 0 

1 0 

2 0 

0 0 

1 0 

0 0 

0 0 

8 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 



4 1 
1 0 
0 0 
0 0 
3 3 
0 0 
0 0 
0 0 
0 0 

0 3 
0 0 
2 0 

1 3 
0 0 
1 0 
0 0 

3 0 
0 0 
0 0 

4 2 
1 0 
0 0 
1 0 
3 2 
0 0 
1 0 
0 0 
1 0 
0 0 
1 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 



1 29 
0 22 
7 20 
0 19 
0 16 
0 8 
0 7 

0 13 

1 12 
0 11 
1 9 
0 8 
0 8 
0 6 
0 5 
0 11 
0 9 

0 7 
3 6 
0 6 
0 6 

1 5 
0 5 
0 5 
0 4 
0 3 
0 2 
0 2 
0 2 
0 2 
0 8 
0 7 
0 7 
0 7 
0 7 
0 7 
0 7 
0 7 



9 3 
6 4 
5 4 
5 4 
4 4 
4 2 
4 2 
3 4 
3 4 
3 4 
3 3 
3 3 
3 3 
3 2 
3 2 
2 6 
2 5 
2 4 
2 3 
2 3 
2 3 
2 3 
2 3 
2 3 
2 2 
2 2 
2 1 
2 1 
2 1 
2 1 
1 8 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
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L001 0 0 

AO 14 6 0 

A021A 6 0 

C038 0 6 

D012 0 6 

K022 0 0 

BOIO 0 5 

D013C 0 5 

D009 0 4 

D029 0 4 

L025 0 0 

L213 0 0 

A030 3 0 

C035A 0 0 

C043 0 0 

DOll 0 3 

D016 0 3 

D016A 0 3 

K018C 0 0 

K021 0 0 

L029C 0 0 

A014A 0 0 

BOOl 2 0 

B002B 0 0 

B007 0 2 

B046A 2 0 

B059 0 2 

C003W 0 0 

D013 0 2 

D025E 0 2 

D025F 0 2 

K026B 0 0 

K033 0 0 

K061 0 0 

L002 0 0 

L023 0 0 

L029 0 0 

L033A 0 0 

L038 0 0 

L304 0 0 

L330 0 0 

L341 0 0 

L388 0 0 

A002 0 0 

A012K 0 0 

AO 2 5 1 0 



0 0 7 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
6 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
3 0 0 
0 0 0 
0 0 0 
0 2 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
2 0 0 
2 0 0 
0 0 0 
0 0 2 
0 0 0 
0 0 2 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 2 
0 10 
0 10 
0 0 0 



0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 4 0 

0 4 0 

0 0 0 

0 3 0 

0 0 3 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

3 0 0 

0 3 0 

0 0 0 

0 0 0 

0 2 0 

0 0 0 

0 0 0 

0 0 0 

0 2 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 2 0 

0 0 0 

0 2 0 

0 0 0 

0 2 0 

0 2 0 

0 2 0 

0 2 0 

0 2 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 



0 7 1 
0 6 1 
0 6 1 
0 6 1 
0 6 1 
0 6 1 
0 5 1 
0 5 1 
0 4 1 
0 4 1 
0 4 1 
0 4 1 
0 3 1 
0 3 1 
0 3 1 
0 3 1 
0 3 1 
0 3 1 
0 3 1 
0 3 1 
0 3 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
0 2 1 
Oil 
Oil 
Oil 



7 



6 

6 

5 

5 

4 

4 

4 

4 

3 

3 

3 

3 

3 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 

1 

1 
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CT\ CT> 



B013 010 

C009 010 

C012 010 

C016 010 

D001A 010 

D001B 010 

D005 010 

D006 010 

D008 000 

D016B 010 

D024 010 

D120 010 

D131 010 

E007 010 

F025 000 

FOB 000 

K018B 000 

L034 000 

L039 000 

L293 000 

M 0 0 0 

PUN 0 0 0 

SPUN 0 0 0 

Y15 000 

total 81 120 72 



0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

10 0 0 

0 0 0 1 

0 0 0 1 

0 0 0 1 

0 0 10 
0 0 0 0 

0 0 0 0 

10 0 0 

40 57 18 62 



0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 111 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 111 1 

10 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

0 0 11 1 

10 11 1 

10 11 1 

0 0 11 1 

20 16 488 9 54 
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APPENDIX D 



000100 
000200 
000300 
000400 
000500 
000600 
000700 
000800 
000900 
00100C 
001100 
001200 
001300 
001400 
001500 
001600 
001 70C' 
0C1800 
001900 
002000 ' 
002100 
0C22CC 
00230C 
CC240C 
0C2500 
0026CC 
002700 
0C2800 
002900 
003000 
0C3100 
00320C 
003300 
003400 
0C350C 
003600 
0C37CC 
003 8 00 
003 800 

003 900 1 

004 0C0 
0 0 4 1 0 C 1 
0C420C’ 
004300 
004400 
00450C 
0 0 4 600 
004700 
004800 

0 0 4 900 
005000 
005100 
00520C 
0C530C 

005 4 OC 
0055 OC 
005600 



NSN5B PROGRAM TO EXTRACT UICP DATA 



identificat: 

PRCGRAM-ID. 

AUTHORS. 



ON DIVISION. 



INSTALLATION. 
DATE-WRITTEN. 
DATE-COMPILED. 88278 . 
SECURITY. 

REMARKS. 



NSN5B. 

PAUL ROSEN. 

BILL LEANZA. 
ELMER NAGRAMPA. 
ASO. 

88259. 

UNCLASSIFIED. 

»**»***♦***■»'■*■**» i 



****■*»•» 



THIS PROGRAM EXTRACTS SELECTED DENS FROM B10JX1 
TYPES (D, F, H, J, L, N, P, R, T, V, AND Z) AND 
THE DENS INTO 11 OUTPUT RECORD TYPES (1-11) FOR 
THE NSN SNAPSHOT PROGRAM 



ENVIRONMENT DIVISION. 



RECORD 
PLACES 
USE IN 



rt«*t**v*« 



CON 

sou: 

03 j 
IN? 



f RAT 
RCE-CCM? 
ECT-COMF 
OUTPU 
LE-CONTRC 



ON SECTION. 
UTER. 

TER. 

SECTICN. 



IBM-3090. 

IBM-3090. 



00010000 
00020006 
0003000C 
00040000 
00050000 
00060000 
00070000 
00080000 
00090000 
001000CC 
' **00110000 
**00120000 
**00130000 
**00140000 
**00150000 
'**00160000 
'**00170000 

ooieooco 

'**001 9CCC0 
'**00200000 
C02100CC 
00220000 
0C230C0C 
0C240C00 
00250000 



SELECT 


bicjx: 


ASSIGN 


TO 


UT-S-B1 0 JX1 . 


002 6C00C 


SELECT 


OF I LEI 


ASSIGN 


TO 


UT-S-OFILE1 . 


0027000C 


SELECT 


OFILE2 


ASSIGN 


TO 


UT-S-OFILE2 . 


00280000 


SELECT 


OFILE3 


ASSIGN 


TO 


UT-S-OFILE3. 


00290000 


SELECT 


OFILE4 


ASSIGN 


TO 


UT-S-OFILE4 . 


C0300C0C 


SELECT 


OFILE5 


ASSIGN 


TO 


UT-S-OFI LE5 . 


003I000C 


SELECT 


CFILE6 


ASS ^ GN 


TO 


UT-S-OFILE6 . 


CC32CCCC 


SELECT 


OFILE7 


ASS j. GN 


TO 


UT-S-OFILE7 . 


00330000 


SELECT 


OFILE8 


ASSIGN 


TO 


UT-S-OFILE8 . 


0034 COCO 


SELECT 


OFILE9 


ASSIGN 


TO 


UT-S-OFI LE 9 . 


00350C0C 


SELECT 


OF I LEI 0 


ASSIGN 


TO 


UT-S-OFILEl 0 . 


00360000 


SELECT 


OFILE11 


ASSIGN 


TO 


UT-S-OFI LEI 1 . 


0C3700CC 


SELECT 


CFILEI2 


ASSIGN 


TO 


UT-S-OFI LEI 2 . 


OC3BOOCO 


SELECT 


OF I LEI 3 


ASSIGN 


TO 


UT-S-OFILEl 3 . 


0C39CC13 


* * * * * * * 




*’*»***» 


* * * 


'»***'**■•**'*•**•'* *»***»**'*’'**■•**■ 


*»*»*, **~» qo 4 QCCOC 


k divis: 


:on. 








00410000 


T W V * ♦ + » 


• »*■*■*■*** 


»**■«»*** 


» T * 




»***’*’'»»*CC42C000 



FILE SECTION. 

FD BI0JX1 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS C RECORDS 
RECORD CONTAINS 425 CHARACTERS 
DATA RECCRD IS 31 0-INPUT-REC . 



B10' 


-INPUT-REC. 




05 


HDR-I 


PIC 


05 


NIIN-CODE-I 


PIC 


05 


PRINT -CODE -I 


PIC 


05 


FILLER 


PIC 


05 


Z -FLAG -I 


PIC 


05 


FILLER 


PIC 



00440CC0 

00450000 

0046000C 

00470000 

00480000 

00490000 

00500000 

0C51000C 



X (28 ) . 


005200CC 


X. 


C0530C0C 


X. 


0054000C 


X (32) . 


00550000 


X. 


005600CC 


X ( 52) . 


0C570CCC 
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005700 
005800 
005900**** 
006000 FD 
006100 
006200 
006300 
006400 
006500 
006600 01 
006700**** 
006800 FD 
006900 
007000 
007100 
007200 
007300 
007400 01 
007500* * * * 
007600 FD 
007700 
007800 
0079C0 
00800C 
008100 
008200 01 
C08300** ** 
00840C FD 
008500 
008600 
008700 
008800 
008900 



00 


9000 


01 


00 


9100* 


r * » 


00 


9200 


FD 


00 


9300 




00 


9400 




CO 


9500 




00 


9600 




00 


9700 




00 


9800 


Cl 


00 


9 900 11 


r tt ★ ' 


01 


0000 


FD 


01 


0100 




01 


0200 




01 


0300 




01 


0400 




01 


0500 




01 


0600 


01 


01 


0700’ 


r » it 


01 


0800 


FD 


01 


0900 




01 


1000 




01 


1100 




01 


1200 




01 


1300 




01 


1400 


01 


01 


1500’ 


r * * 


01 


1600 


FD 


01 


1700 




01 


1800 




01 


1900 




01 


2000 





05 ITEM-NAME-I PIC X 

05 SEQ-AND-DATA-I PIC X 

a********************************* 

OF I LEI 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC-1. 
OUTPUT-REC-1 PIC 

*********★****★**★******★★★***★** 

OFILE2 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC-2. 
OUTPUT-REC-2 PIC 

********************************* 



( 22 ) . 
(288) 



: (140) 

■ ****★ 



**★*•***★■***11 



: (140) . 

***** i 



***»***i> 



OFILE3 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC-3. 
OUTPUT-REC-3 PIC X (1 40 ) . 

**************************************** 

OFILE4 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC-4 . 
OUTPUT-REC-4 PIC X (140) - 

**************************************** 

OFILE5 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC-5 . 
OUTPUT-REC-5 PIC X(140). 

****■»********************■»****■»**»**■»*** 

OFILE6 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC- 6 . 
OUTPUT-REC-6 PIC X(140). 

**************************************** 

OFILE7 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC-7 . 

OUTPUT-REC- 7 PIC X(140). 

**************************************** 

OFILE8 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 



*********** 



******* 



00580000 

00590000 

*********00600000 

00610000 

00620000 

00630000 

00640000 

00650000 

00660000 

00670000 

*********00680000 

00690000 

00700000 

00710000 

00720000 

00730000 

00740000 

00750000 

*********00760000 
00770000 
00780000 
00790000 
00800000 
00810000 
0082000C 
0083000C 
***00840000 
0085000C 
00860000 
00870000 
00880000 
00890000 
009000CC 
00910000 
***00920000 
00930000 
0 0 94 00 0 C 
00950000 
00960000 
00970000 
00980000 
00990000 
***01000000 
C 101000 C 
01020000 
01 C3000C 
01C40000 
01C5C000 
01060000 
01070000 
**-01080000 
01090000 
01100000 
01110000 
01120000 
01130000 
01140000 
01150000 
***01160000 
01170000 
01180000 
01190000 
01200000 
01210000 
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012100 
012200 
012300 
012400 
012500 
012600 
012700 
012800 
012900 
013000 
013100 
013200 
013300 
013400 
013500 
013600 
013700 
013800 
013900 
014000 
014100 
014200 
014300 
014400 
014500 
014600 
01 47 00 
014800 
014900 
015000 
015100 
Cl 5200 
015300 
015400 
C15500 
013600 
013700 
013800 
013900 
014000 
014100 
014200 
014300 
015600 
015700 
015800 
015900 
016000 
016100 
01 62 CO 
016300 
016400 
016500 
016600 
016700 
01 68 OC 
016900 
017000 
017100 
017200 
017300 
017400 
017500 
017600 



01 



FD 



01 

★ * 

FD 



01 
* * 

FD 



01 

* ft 

FD 



01 



DATA RECORD IS OUTPUT-REC-8 . 

OUTPUT-REC-8 PIC X(140). 

***************************************** 

OFILE9 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC- 9 . 

OUTPUT-REC- 9 PIC X(140). 

***************************************** 

OFILE10 

LABEL RECORDS ARE STANDARD 
RECORDING MODE IS F 
BLOCK CONTAINS 0 RECORDS 
RECORD CONTAINS 140 CHARACTERS 
DATA RECORD IS OUTPUT-REC-1 0 . 
OUTPUT-REC-1 0 PIC X(140). 

***************************************** 

OFILE11 

LABEL RECORDS ARE STANDARD 

RECORDING MODE IS F 

BLOCK CONTAINS 0 RECORDS 

RECORD CONTAINS 140 CHARACTERS 

DATA RECORD IS OUTPUT-REC-1 1 . 

OUTPUT-REC-1 1 PIC X (140). 



OFILE12 

LABEL RECORDS ARE STANDARD 

RECORDING MODE IS F 

BLOCK CONTAINS 0 RECORDS 

RECORD CONTAINS 140 CHARACTERS 

DATA RECORD IS OUTPUT-REC-12 . 

OUTPUT-REC-1 2 PIC X (1 4 0) . 



01220000 

01230000 

*********************01240000 

01250000 

01260000 

01270000 

01280000 

01290000 

01300000 

01310000 

*********************01320000 

01330000 

01340000 

01350000 

01360000 

01370000 

01380000 

01390000 

*********************01400000 

01410000 
01420000 
Cl 4 30000 
01440000 
01450000 
01460000 
0147C000 

*********************01480000 

01490000 

01500000 

01510000 

01520000 

01530000 

0154000C 

01550000 



********************* 



***************************01500000 



FD 


OF I LEI 3 






01570013 




LABEL RECORDS ARE STANDARD 






01580013 




RECORDING MODE IS F 






01590013 




BLOCK CONTAINS 0 RECORDS 






01600013 




RECORD CONTAINS 140 CHARACTERS 




01610013 




DATA RECORD IS OUTPUT-REC-1 


3 . 




01 62 0013 


01 


OUTPUT-REC-1 3 


PIC 


X (140) . 


01630013 


** * 


**************************** 


* * * * ■ 


****************** **** 


********01640013 


■ *** 


**************************** 


* * * * 


********************** 


****** ** 01 050OQ0 


WORKING-STORAGE SECTION. 






01660000 


* * * 


**************************** 


★ * * * 1 


********************** 


*+****** cl 670 OOO 




**************************** 


* * * * ■ 


********************** 


******** ol 08 oooo 


01 


WS-D-REC. 






01690000 




05 IM-HDR-D. 






01700000 




10 IM-FILE-ID-D 


PIC 


X (5) . 


01710000 




10 IM-REQR-ID-D 


PIC 


X (7) . 


01720000 




10 HDR-LRC-D 


PIC 


XXX. 


01730000 




10 HDR-FGC-D 


PIC 


X (4) . 


01740000 




10 HDR-F-REL-D 


PIC 


X. 


01750000 




10 HDR-NI IN-D 


PIC 


X ( 9) . 


01760000 




10 PRINT-CODE-D 


PIC 


X. 


01770000 




10 SEQ-DATA-D 


PIC 


X (20) . 


01780000 




05 FILLER 


PIC 


X (8 ) . 


01790000 




05 SDR-DATE 


PIC 


9(4) . 


01800000 




05 FILLER 


PIC 


X. 


01810000 




05 B045 


PIC 


9(5) . 


01820000 




05 FILLER 


PIC 


X. 


01830000 




05 C030 


PIC 


XX. 


01840000 




05 FILLER 


PIC 


X. 


01850000 



99 



017700 


05 


C016 


PIC X. 


01860000 


017800 


05 


FILLER 


PIC X. 


01870000 


017900 


05 


C012 


PIC 9 (5) . 


01880000 


018000 


05 


FILLER 


PIC X. 


01890000 


018100 


05 


CO 15 


PIC X. 


01900000 


018200 


05 


FILLER 


PIC X. 


01910000 


018300 


05 


B004 


PIC 9 (5) . 


01920000 


018400 


05 


FILLER 


PIC X. 


01930000 


018500 


05 


BO 67-PROV 


PIC X. 


01940000 


018600 


05 


FILLER 


PIC X. 


01950000 


018700 


05 


BO 67-MARK 


PIC X. 


01960000 


018800 


05 


FILLER 


PIC X. 


01970000 


018900 


05 


B067E 


PIC X. 


01980000 


019000 


05 


FILLER 


PIC X. 


01990000 


019100 


05 


BO 67-REPAIR-STAT 


PIC XX. 


02000000 


019200 


05 


FILLER 


PIC XXX. 


02010000 


019300 


05 


BO 0 7 


PIC X. 


02020000 


019400 


05 


FILLER 


PIC X. 


02030000 


019500 


05 


CO 05 


PIC XX. 


02040000 


019600 


05 


FILLER 


PIC X. 


02050000 


019700 


05 


BO 55 . 




02060000 


019800 




10 FILLER 


PIC X. 


02070000 


019900 




10 B055-DOLLARS-IN 


PIC 9 (6) . 


02080000 


020000 




1C FILLER 


PIC X. 


02090000 


02010C 




10 BC55-CENTS-IN 


PIC 99. 


02100000 


020200 


05 


FILLER 


PIC X. 


02110000 


020300 


05 


C004 


PIC X (22) . 


02120000 


020400 


05 


FILLER 


PIC X. 


02130000 


020500 


05 


B002B 


PIC XXX. 


0214000C 


020600 


05 


FILLER 


PIC X. 


02150000 


020700 


05 


C001A 


PIC X (4) . 


021600C0 


020800 


05 


FILLER 


PIC X. 


02170000 


020900 


05 


C0013 


PIC X. 


0218000C 


021000 


05 


FILLER 


PIC X. 


02190000 


021100 


05 


C0C1C 


PIC X. 


02200000 


021200 


05 


FILLER 


PIC X. 


02210000 


02130C 


05 


CO 03 


PIC XX. 


02220000 


021400 


05 


C003A 


PIC X. 


02230000 


021500 


05 


FILLER 


PIC X. 


C2240000 


021600 


05 


C042 


PIC X (4) . 


02250000 


021700 


05 


FILLER 


PIC X. 


02260000 


021800 


05 


C001E 


PIC XX. 


0227000C 


021900 


05 


FILLER 


PIC X. 


02280000 


022000 


05 


D04 6 


PIC X (7) . 


02290000 


022100 


05 


FILLER 


PIC X (4) . 


02300000 


022200 


05 


END-PRINT -LI NE-Dl 


PIC X. 


02310000 


022300 


05 


B034C 


PIC 9 (5) . 


02320000 


022400 


05 


FILLER 


PIC X. 


C2330000 


02250C 


05 


BC34F 


PIC 9 (5) . 


02 3 4 0 C 00 


022600 


05 


FILLER 


PIC X. 


02350000 


022700 


05 


B034D 


PIC 9 (5) . 


0236000C 


022800 


05 


FILLER 


PIC X. 


02370000 


022900 


05 


B034E 


PIC 9(5). 


02380000 


023000 


05 


FILLER 


PIC X. 


02390000 


023100 


05 


F024 


PIC X. 


02 4 C 00 00 


023200 


05 


FILLER 


PIC X. 


02410000 


023300 


05 


D010A-D 


PIC X (5) . 


02420000 


023400 


05 


FILLER 


PIC X. 


02430000 


023500 


05 


C02 8 


PIC X. 


02440000 


023600 


05 


FILLER 


PIC X. 


024500C0 


023700 


05 


C029 


PIC XX. 


02460000 


023800 


05 


FILLER 


PIC XXX. 


02470000 


023 90 0 


05 


D014A 


PIC XX. 


02480000 


024000 


05 


FILLER 


PIC X. 


02490000 



100 



024100 


05 


B05 0 


PIC X. 


02500000 


024200 


05 


CO 0 9 


PIC XX. 


02510000 


024300 


05 


FILLER 


PIC X. 


02520000 


024400 


05 


V007F 


PIC X. 


02530000 


024500 


05 


C03 3 


PIC X. 


02540000 


024600 


05 


DO 1 5 


PIC X. 


02550000 


024700 


05 


FILLER 


PIC XX. 


02560000 


024800 


05 


C01 7 


PIC X. 


02570000 


024900 


05 


FILLER 


PIC X. 


02580000 


025000 


05 


B001 


PIC X (5 ) . 


02590000 


025100 


05 


FILLER 


PIC X. 


02600000 


025200 


05 


B008 


PIC X. 


02610000 


025300 


05 


FILLER 


PIC X. 


02620000 


0254CC 


05 


C035 


PIC X (5) . 


02630000 


025500 


05 


FILLER 


PIC X. 


02640000 


025600 


05 


C008C. 




02650000 


025700 




10 FILLER 


PIC X. 


02660000 


025800 




10 C008C-DEC-IN 


PIC 999. 


02670000 


025900 


05 


FILLER 


PIC X. 


02680000 


026000 


05 


C023 . 




02690000 


026100 




10 C023-NUM-IN 


PIC 9 (4) . 


02700000 


026200 




10 FILLER 


PIC X. 


02710000 


026300 




10 C023-DEC-IN 


PIC 99. 


02720000 


026400 


05 


FILLER 


PIC X. 


02730000 


02 650 0 


05 


C02 4 . 




02740000 


026600 




10 C024-NUY-IN 


PIC 9(4). 


0275000C 


02670C 




10 FILLER 


PIC X. 


02760000 


026800 




10 C024-DEC-IN 


PIC 99. 


02770000 


026900 


05 


FILLER 


PIC X. 


02780000 


027000 


05 


PACKAGE-QTY 


PIC 9 (7) . 


02790000 


027100 


05 


FILLER 


PIC X. 


02800000 


027200 


05 


B014A. 




02810000 


027300 




10 B01 4A-NUM-I N 


PIC 9. 


02820000 


027400 




10 FILLER 


PIC X. 


02830000 


027500 




10 B01 4A-DEC-IN 


PIC 999. 


0284000C 


02 7 60 0 


05 


FILLER 


PIC X. 


02850000 


027700 


05 


BO 1 1 A . 




02860000 


027800 




10 BCUA-NCM-IN 


PIC 99. 


02870000 


C2 7 900 




10 FILLER 


PIC X. 


028800C0 


028000 




10 B01 1 A-DEC-IN 


PIC 99. 


0289000C 


028100 


05 


CSSR-REASON-REQR-ID 


PIC X (13) . 


02900000 


C282CC 


05 


FILLER 


PIC X (4) . 


02910000 


C28300 


05 


END -OF -LINE -2 -D 


PIC 9. 


02920000 


028400 


05 


3033 


PIC 9(6). 


02 93 00 00 


026500 


05 


SIGN-DI SP-QTY 


PIC X. 


02940C00 


028600 


05 


BC28C 


PIC 9(6). 


02950000 


02870C 


05 


FILLER 


PIC XX. 


02960000 


028800 


05 


B011B. 




02970000 


028900 




10 B01 1B-NUM-IN 


PIC 99. 


02 980CC0 


02 9000 




10 FILLER 


PIC X. 


02990000 


029100 




10 B011B-DEC-IN 


PIC 9. 


03000000 


029200 


05 


FILLER 


PIC XX. 


03010000 


029300 


05 


3027 


PIC 9(6). 


03C2000C 


029400 


05 


FILLER 


PIC X. 


0303C000 


029500 


05 


F025 


PIC XX. 


03040000 


029600 


05 


FILLER 


PIC XXX. 


03050000 


029700 


05 


D025DEF-E089 


PIC X (4) . 


03060000 


029800 


05 


FILLER 


PIC XX. 


03070000 


029900 


05 


C043 


PIC 9 (5) . 


03080000 


030000 


05 


FILLER 


PIC X. 


03090000 


030100 


05 


D007A-E 


PIC X (5) . 


03100000 


030200 


05 


FILLER 


PIC XX. 


03110000 


03C300 


05 


BIO. 




03120000 


030400 




10 BlC-NUY-IN 


PIC 99. 


C313C00C 



101 



030500 




10 FILLER 


PIC X. 


03140000 


030600 




10 B1 0-DEC-IN 


PIC 9. 


03150000 


030700 


05 


FILLER 


PIC X. 


03160000 


030800 


05 


DATE -OF -NEXT -BUY 


PIC 9 (5) . 


03170000 


030900 


05 


FILLER 


PIC X. 


03180000 


031000 


05 


3077. 




03190000 


031100 




10 B07 7-NUM-IN 


PIC 9(5) . 


03200000 


031200 




10 FILLER 


PIC X. 


03210000 


031300 




10 B077-DEC-IN 


PIC 9. 


03220000 


031400 


05 


B077A. 




03230000 


031500 




10 B07 7A-NUM-IN 


PIC 9(5) . 


03240000 


031600 




10 FILLER 


PIC X. 


03250000 


031700 




10 B07 7A-DEC-IN 


PIC 9. 


03260000 


031800 


05 


B077B. 




03270000 


03190C 




10 B077B-NUM-IN 


PIC 9 (5) . 


03280000 


032000 




10 FILLER 


PIC X. 


03290000 


032100 




10 B077B-DEC-IN 


PIC 9. 


03300000 


032200 


05 


B077C. 




03310000 


0323C0 




10 B077C-NUM-IN 


PIC 9 (5) . 


03320000 


032400 




10 FILLER 


PIC X. 


03330000 


032500 




10 B077C-DEC-IN 


PIC 9. 


03340000 


03260C 


05 


B077D. 




03350000 


032700 




10 B077D-NUy-IN 


PIC 9(5) . 


03360000 


032800 




10 FILLER 


PIC X. 


03370000 


032900 




10 BO 77D-DEC-IN 


PIC 9. 


033800CC 


C33000 


05 


B077E. 




03390000 


033100 




1C BC77E-NUM-IN 


PIC 9 (5) . 


03400000 


033200 




10 FILLER 


PIC X. 


0341 0000 


033300 




10 B077E-DEC-IN 


PIC 9. 


0342C0CC 


C334C0 


05 


FILLER 


PIC X. 


03430000 


C33500 


05 


C0C3B 


PIC XX. 


03440000 


033600 


05 


FILLER 


PIC XX. 


0345000C 


03370C 


05 


B053 . 




03460000 


033800 




10 FILLER 


PIC X. 


03470000 


033900 




10 B053 -DOLLARS-IN 


PIC 9 (6) . 


03480000 


034000 




10 FILLER 


PIC X. 


03490000 


034100 




10 BC 5 3 -CENTS- IN 


PIC 99. 


03500000 


034200 


05 


FILLER 


PIC X (4) . 


03510000 


0343C0 


05 


END-OF-LINE-3-D 


PIC 9. 


03520000 


034400**’* 


* » * * 






******03530000 


034500**** 


» » * * 


•xlrt-wi'Tr-v’r-wlivTr-w + irir-r'rirtTr 




**-***03540000 


0346CC o: 


ws- 


F-REC. 




035500 OC 


C3470C 


05 


IM-HDR-F . 




03560000 


034 8 00 


1 


0 IM-FILE-ID-F 


PIC X (5) . 


0357000C 


034900 


1 


0 IM-REQR-ID-F 


PIC X (7) . 


C358000C 


035000 




0 HDR-LRC-F 


PIC X (3) . 


035 90000 


035100 


10 HDR-FGC-F 


PIC X (4) . 


C360000C 


03520C 




0 HDR-F-REL-F 


PIC X. 


03610000 


C3530C 


1C HDR-NIIN-F 


PIC X (9) . 


03620000 


035400 


1 


C PRINT-CODE-F 


PIC X. 


03630000 


035500 


10 SEQ-DATA-F 


PIC X (20) . 


03640000 


035600 


05 


A005 


PIC S9 (7) . 


03650000 


035700 


05 


FILLER 


PIC X. 


03660000 


03580C 


05 


A005A 


PIC S9 (7) . 


03670000 


035900 


05 


FILLER 


PIC X. 


03680000 


03600C 


05 


A00 6 


PIC S9 (7) . 


03690000 


036100 


05 


FILLER 


PIC X. 


03700000 


036200 


05 


A004A 


PIC S 9 (7) . 


03710000 


036300 


05 


FILLER 


PIC X. 


0372000C 


036400 


05 


B07 4 


PIC S9 ( 5 ) V 9 . 


03730000 


036500 


05 


FILLER 


PIC X. 


03740000 


036600 


05 


A023B. 




03750000 


036700 




10 A02 3B-NUM-IN 


PIC 999. 


03760000 


03 68 00 




10 FILLER 


PIC X. 


03770000 
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036900 




10 AG23B-DEC-IN 


PIC 


999. 


03780000 


037000 




10 A023B-MINUS-IN 


PIC 


X . 


03790000 


037100 


05 


B019A. 






03800000 


037200 




10 BC1 9A-NUM-IN 


PIC 


999. 


03810000 


037300 




10 FILLER 


PIC 


X. 


03820000 


037400 




10 B01 9A-DEC-IN 


PIC 


9(4) . 


03830000 


037500 


05 


FILLER 


PIC 


X . 


03840000 


037600 


05 


B023C 


PIC 


9(6) V9. 


03850000 


037700 


05 


FILLER 


PIC 


XX. 


03860000 


037800 


05 


H3-H0RI ZOK 


PIC 


9(5) . 


03870000 


037900 


05 


FILLER 


PIC 


XX. 


03880000 


038000 


05 


B023D 


PIC 


9 (6) V9. 


03890000 


038100 


05 


FILLER 


PIC 


X. 


03900000 


038200 


05 


A01 9D-A01 9. 






03910000 


038300 




10 A019D-NUM-IN 


PIC 


9. 


03920000 


038400 




10 FILLER 


PIC 


X . 


03930000 


038500 




10 A019D-DEC 


PIC 


9(4) . 


03940000 


038600 




10 A019D-MINUS-IN 


PIC 


X . 


03950000 


038700 


05 


A019E-A019A. 






03960000 


038800 




10 A019E-NUM-IN 


PIC 


9. 


03970000 


038900 




10 FILLER 


PIC 


X . 


03980000 


039000 




10 A019E-DEC 


PIC 


9 (4) . 


03990000 


039100 




10 A019E-MINUS-IN 


PIC 


X. 


04000000 


03 92 00 


05 


BO 93 


PIC 


9(5) . 


04010CCC 


039300 


05 


FILLER 


PIC 


X. 


04020000 


039400 


05 


B093A 


PIC 


9(5) . 


04030000 


03 95 C 0 


05 


BC22D-BC22. 






04 0400C0 


039600 




10 BC22D-NUM-IN 


PIC 


99. 


04050000 


039700 




1C FILLER 


PIC 


X . 


04060000 


03 98 OC 




10 BC22D-DEC-IN 


PIC 


9(4) . 


04 C70C00 


03990C 




10 BC22D-MINUS-IN 


PIC 


X. 


04080000 


040000 


05 


3022E-B022A. 






04090000 


04010C 




10 B022E-NUM-IN 


PIC 


99. 


C41000C0 


040200 




10 FILLER 


PIC 


X. 


04110000 


04C300 




10 B022E-DEC-IN 


PIC 


9(4) . 


04120000 


0404C0 




10 B022E -MINUS-IN 


PIC 


X. 


04130000 


C4C500 


05 


FILLER 


PIC 


XXX. 


04140000 


0406CC 


05 


END-OF-LINE-1 -IND 


PIC 


X . 


04150000 


040700 


05 


CN-HAND-A 


PIC 


S 9 ( 8 ) . 


0416000C 


C4C800 


05 


FILLER 


PIC 


X. 


0417000C 


040900 


05 


A021 A 


PIC 


S 9 ( 7 ) . 


04180000 


C410CC 


05 


FILLER 


PIC 


X. 


04190000 


o 

o 

o 


05 


ON-HAND-REGEN 


PIC 


S 9 (7 ) . 


04200000 


04120C 


05 


FILLER 


PIC 


X . 


0421000C 


041300 


05 


DUE-OUT-REGEN 


PIC 


S9 (7) . 


0422C00C 


0414CC 


05 


FILLER 


PIC 


X. 


04230000 


041500 


05 


ON-HAND-OTHER 


PIC 


S9(7) . 


0424 0C00 


04160C 


05 


FILLER 


PIC 


X . 


04250000 


04170C 


05 


DUE-CUT-OTHER 


PIC 


9(7) . 


04260000 


041800 


05 


FILLER 


PIC 


X. 


04270000 


04190C 


05 


PLT-DUE-IN -OTHER 


PIC 


S9 (7) . 


04280000 


042000 


05 


FILLER 


PIC 


X . 


04290000 


042100 


05 


FLT -DUE- IN -REGEN 


PIC 


S 9 ( 7 ) . 


04300000 


04220C 


05 


FILLER 


PIC 


X. 


04310000 


042300 


05 


PLT-ASSETS 


PIC 


S9 (8) . 


04320000 


042400 


05 


FILLER 


PIC 


X . 


04330000 


042500 


05 


B023E 


PIC 


9 (6) V9. 


04340000 


04260C 


05 


FILLER 


PIC 


XX. 


04350000 


04270C 


05 


NET -EXCESS -REQMT 


PIC 


S 9 (7) . 


04360000 


042800 


05 


FILLER 


PIC 


XX. 


04370000 


042900 


05 


B023F 


PIC 


9(6) V9. 


04380000 


043000 


05 


FILLER 


PIC 


XX . 


04390000 


043100 


05 


BC23G 


PIC 


9 (6) V9. 


0440000C 


043200 


05 


FILLER 


PIC 


XXXX. 


04410000 



103 



043300 


05 


B023H 


PIC 9 { 6) V9 . 


0442000C 


043400 


05 


SPACE-FILL-1 


PIC X (5) . 


0443000C 


043500 


05 


END-OF -LINE-2- I ND 


PIC X. 


04440000 


043600 


05 


A01 1 


PIC 9(8) . 


04450000 


043700 


05 


FILLER 


PIC X. 


04460000 


043800 


05 


A011B 


PIC 9 (8) . 


04470000 


043900 


05 


FUND-PROT-PPR-PLT 


PIC 9 (7) . 


04480000 


044000 


05 


FILLER 


PIC X. 


04490000 


044100 


05 


SAFETY-LEVEL 


PIC S9 (7) . 


04500000 


044200 


05 


FILLER 


PIC XX. 


04510000 


044300 


05 


B01 9 


PIC 9(7). 


04520000 


044400 


05 


FILLER 


PIC X. 


04530000 


044500 


05 


B019C. 




04540000 


044600 




10 B0 1 9C-NUM-IN 


PIC 999. 


04550000 


044700 




10 FILLER 


PIC X. 


04560000 


044800 




10 B01 9C-DEC-IN 


PIC 999. 


04570000 


044900 


05 


FILLER 


PIC X. 


04580000 


045000 


05 


B021 


PIC 9(7) . 


04590000 


045100 


05 


FILLER 


PIC X (8) . 


04600000 


04520C 


05 


B019B 


PIC 9(7) . 


04610000 


04530C 


05 


FILLER 


PIC X. 


04620000 


0454 00 


05 


B021A 


PIC 9(7) . 


04630000 


045500 


05 


FILLER 


PIC X. 


04640000 


04 5600 


05 


B055A. 




04650000 


045700 




1C FILLER 


PIC X. 


04660000 


0458C0 




10 B055A-DOLLARS-IN 


PIC 9(6). 


04670000 


C459CC 




1C FILLER 


PIC X. 


04680000 


04 6000 




10 BC 55A-DEC-IN 


PIC 99. 


04 69000C 


046100 


05 


FILLER 


PIC X. 


04700000 


046200 


05 


F007. 




0471000C 


04 6300 




10 F0C7-NUM-IN 


PIC 9. 


04720000 


04 64 CC 




10 FILLER 


PIC X. 


04730000 


046500 




10 F00 7-DEC-IN 


PIC 99. 


04740000 


04 6600 


05 


FILLER 


PIC X. 


04750000 


04 6700 


05 


B0 94 


PIC XX. 


0476000C 


04 6800 


05 


FILLER 


PIC X. 


0477000C 


04 6900 


05 


F0 30 


PIC X (4) . 


04780000 


0^7000 


05 


FILLER 


PIC X. 


0479000C 


C 4 71 00 


05 


D008 


PIC X (10) . 


04800000 


047200 


05 


FILLER 


PIC X. 


04810000 


C 4 7 3 C 0 


05 


F009A. 




0482000C 


047400 




10 F00 9A-NUM-IN 


PIC 9. 


04 83000C 


047500 




10 FILLER 


PIC X. 


04840000 


C4760C 




10 F00 9A-DEC-IN 


PIC 99. 


C4850C0C 


047700 


05 


SPACE-FILL-2 


PIC X (4) . 


048 60 000 


047800 


05 


FILLER 


PIC X. 


0487000C 


047900*** 


T » T t t 


tt«**«tt**»**tt*Ttt* * * ir * 


★ **■***»»*»*♦*■**•»•*»*•**** 


*********-*•*04880000 


048000*** 


▼ ▼ * * * 






**«****«« **04890000 


o 

o 

o 

CO 

vr 

o 


WS- 


-K-REC. 




C490C00C 


048200 


05 


IM-HDR-K. 




04 91000C 


048300 




10 IM-FILE-ID-H 


PIC X (5) . 


04920000 


048400 




10 IM-REQR-ID-H 


PIC X (7) . 


04930000 


C 4 8500 




10 HDR-LRC-H 


PIC X (3) . 


0494000C 


048600 




10 HDR-FGC-H 


PIC X (4) . 


04950000 


048700 




10 HDR-F-REL-H 


PIC X. 


04960000 


048800 




10 HDR-NIIN-H 


PIC X (9) . 


04970000 


048900 




10 PRINT-CODE-H 


PIC X. 


04980000 


04 9000 




10 SEQ-DATA-H 


PIC X (20) . 


04990000 


04 91 C 0 


05 


BLANK-CSSR-PRNT-7 


PIC X (125) . 


05000000 


04 9200 


05 


A005B 


PIC S9 (5) . 


05010000 


049300 


05 


FILLER 


PIC XX. 


05020000 


049400 


05 


A005C 


PIC S9 (6) . 


05030000 


049500 


05 


FILLER 


PIC XX. 


05040000 


04 9600 


05 


PLT-ADD2-DATE 


PIC 9 (5) . 


05050000 
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049700 


05 


FILLER 


PIC XX. 


05060000 


049800 


05 


B022F-B. 




05C70000 


049900 




10 B022F-B-NUM-IN 


PIC 9. 


05080000 


050000 




10 FILLER 


PIC X. 


05090000 


050100 




10 B022F-B-DEC-IN 


PIC 9(4). 


05100000 


05C200 




10 B022F-B-MINUS-IND 


PIC X. 


05110000 


050300 


05 


FND-PPR-PLT-ADD2 


PIC 9 (7) . 


05120000 


050400 


05 


A019F-B. 




05130000 


050500 




10 A019F-B-NUM-IN 


PIC 9. 


05140000 


050600 




10 FILLER 


PIC X. 


05150000 


050700 




10 AO 1 9F-B-DEC-IN 


PIC 9(4). 


05160000 


050800 




10 A019F-B-MINUS-IND 


PIC X. 


05170000 


050900 


05 


3012B. 




05180000 


051000 




10 B012B-NUM-IN 


PIC 9. 


05190000 


051100 




10 FILLER 


PIC X. 


05200000 


051200 




10 B012B-DEC-IN 


PIC 9. 


05210000 


051300 


05 


FILLER 


PIC X. 


05220000 


051400 


05 


B012D. 




05230000 


051500 




10 B012D-NUM-IN 


PIC 9. 


05240000 


051600 




10 FILLER 


PIC X. 


05250000 


051700 




10 B012D-DEC-IN 


PIC 9. 


05260000 


05180C 


05 


FILLER 


PIC X (4) . 


05270000 


0519C0 


05 


B012-BC12C . 




05280000 


052000 




10 B01 2-NUK-IN 


PIC 9. 


05290000 


0521 0C 




10 FILLER 


PIC X. 


05300000 


C5220C 




10 B01 2-DEC-IN 


PIC 99. 


05310000 


05230C 


05 


FILLER 


PIC X. 


05320000 


052400 


05 


BC12F. 




05330000 


05250C 




10 BC12F-NUX-IN 


PIC 9. 


C5340000 


C526CC 




10 FILLER 


PIC X. 


0535000C 


05270C 




10 BO 1 2F-DEC-IN 


PIC 99. 


05360000 


05280C 


05 


FILLER 


PIC X. 


05370000 


052900 


05 


FCO 9 . 




0538000C 


053000 




10 FOO 9-NUM-IN 


PIC 9. 


05390000 


053100 




10 FILLER 


PIC X. 


05400000 


05320C 




10 FCO 9-DEC-IN 


PIC 99. 


05410000 


053 300 


05 


FILLER 


PIC XX. 


05420000 


0534CC 


05 


B012E. 




0543C00C 


C535C0 




10 B01 2E-NUM-IN 


PIC 9. 


0544C00C 


053600 




10 FILLER 


PIC X. 


C5450000 


053700 




10 BC12E-DEC-IN 


PIC 99. 


0546000C 


053800 


05 


FILLER 


PIC X. 


05470000 


053900 


v 0 


B014C. 




05480C0C 


054000 




10 B01 4 C -DEC -POINT 


PIC X. 


05490000 


0541 OC 




10 B01 4 C-DEC-IN 


PIC 999. 


05500000 


0542CC 


05 


FILLER 


PIC X. 


0551000C 


054300 


05 


FC16-1 


PIC X (6) . 


C5520000 


054 400 


05 


FILLER 


PIC X. 


05530000 


C5450G 


05 


F 01 6-2 


PIC X (6) . 


05540C0C 


05460C 


05 


FILLER 


PIC X. 


05550C00 


0547CC 


05 


F016-3 


PIC X (6) . 


0556000C 


054800 


05 


FILLER 


PIC X. 


05570000 


054900 


05 


FC16-4 


PIC X (6) . 


05580000 


055000 


05 


FILLER 


PIC X. 


05590000 


055100 


05 


F016-5 


PIC X (6) . 


05600000 


055200 


05 FILLER 


PIC XX. 


0561 OCOO 


55300 


05 


B075 


PIC X. 


05620000 


0554C0 


05 


FILLER 


PIC XX. 


05 63000C 


055500 


05 


B075D 


PIC 9. 


0564000C 


055600 


05 


FILLER 


PIC X (4) . 


05650000 


055700 


05 


END-PRINT-LINE-1 


PIC 9. 


05660000 


055800 


05 


D01 2 


PIC XX. 


0567000C 


055900 


05 


FILLER 


PIC XX. 


05680000 


056000 


05 


D013C 


PIC X. 


05690000 



105 



056100 


05 


FILLER 


PIC XXX. 


05700000 


056200 


05 


D012A 


PIC X. 


05710000 


056300 


05 


FILLER 


PIC XX. 


05720000 


056400 


05 


F027 . 




C5730000 


056500 


10 


F027-NUM-I N 


PIC 99. 


0056600 10 FI 






PIC X. 




05750000 


056700 




10 F027-DEC-IN 


PIC 9(4). 


05760000 


056800 


05 


FILLER 


PIC X. 


0577000C 


056900 


05 


B280 


PIC 9 (5) . 


05780000 


057000 


05 


FILLER 


PIC X. 


05790000 


057100 


05 


CO OIF 


PIC X (4) . 


05800000 


057200 


05 


FILLER 


PIC X. 


05810000 


057300 


05 


B051 


PIC 9 (7) . 


05820000 


057400 


05 


FILLER 


PIC X. 


05830000 


057500 


05 


D120 


PIC XX. 


05840000 


057600 


05 


FILLER 


PIC XX. 


05850000 


057700 


05 


B061B 


PIC 9 (5) . 


05860000 


057800 


05 


FILLER 


PIC XX. 


05870000 


057900 


05 


D125A-B-C-N 


PIC X (4) . 


05880000 


058000 


05 


FILLER 


PIC X. 


05890000 


058100 


05 


E088 


PIC X (3) . 


05900000 


058200 


05 


FILLER 


PIC X. 


0591000C 


058300 


05 


B020 


PIC 9 (7) . 


05920000 


058400 


05 


FILLER 


PIC X. 


05930000 


05850C 


05 


B093B 


PIC 9(5). 


05940000 


058600 


05 


FILLER 


PIC X. 


05950000 


058700 


05 


B098 


PIC 9(8). 


05960000 


0588CC 


05 


FILLER 


PIC X. 


05970000 


058900 


05 


B098A 


PIC 9(8). 


05980000 


05 9000 


05 


FILLER 


PIC X. 


05990000 


05910C 


05 


C003D 


PIC XX. 


06000000 


059200 


05 


FILLER 


PIC X. 


06010000 


059300 


05 


C003W 


PIC XX. 


06020000 


059400 


05 


FILLER 


PIC XX. 


06030000 


059500 


05 


BC5 9 . 




0 604 0000 


059600 




10 FILLER 


PIC X. 


06050000 


059700 




10 B05 9-DOLLARS-IN 


PIC 9(7). 


06060000 


059800 




10 FILLER 


PIC X. 


06070000 


059900 




10 30 5 9 -CENTS -IK 


PIC 99. 


06Q8CC0C 


C 60000 


05 


FILLER 


PIC X (16) . 


06090000 


060100 


05 


END-PRINT-LINE-2 


PIC 9. 


06100000 


060200*' — 
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C613000C 


06C500 


05 


IM-HDR-J . 




061400C0 


060600 


10 IM-FILE-ID- J 


PIC X (5) . 


06150000 


06070C 


1 


0 IM-REQR-ID-J 


PIC X (7) . 


06160000 


060800 


10 HDR-LRC-J 


PIC X (3) . 


06170000 


060900 


± 


0 HDR-FGC- J 


PIC X (4) . 


0 61 8 00 00 


061000 




0 HDR-F-REL- J 


PIC X. 


C 61 90000 


061100 


10 HDR-NIIN-J 


PIC X (9) . 


06200000 


061200 


1 


0 PRINT-CODE-J 


PIC X. 


06210000 


061300 


1 


.0 SEQ-DATA-J 


PIC X (20) . 


06220000 


06140C 








06230000 


061500 








06240000 


061600**** 


* * * » 
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PRINT LINE*********** 


,„oo„.»»,.»*06250000 


061700 








06260000 


061800 


05 


A0Q1-1 


PIC XXX. 


0627C000 


061900 


05 


FILLER 


PIC X. 


06280000 


C 62000 


05 


B046A-1 


PIC 9 (5) . 


06290000 


062100 


05 


FILLER 


PIC X. 


06300000 


062200 


05 


A003-1 


PIC XX. 


06310000 


062300 


05 


F016-1 


PIC X. 


06320000 


062400 


05 


FILLER 


PIC X. 


0633000C 
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062500 


05 A006A-1. 






0634000C 


06260C 


10 A006A-1-IN 


PIC 


9(6) . 


06350000 


C 62700 


10 AO 0 6A-1 -MINUS-IN 


PIC 


X. 


06360000 


062800 


05 A004-1. 






06370000 


06290C 


10 A004-1-IN 


PIC 


9(6) . 


06380000 


063000 


10 AO 04-1 -MINUS-IN 


PIC 


X. 


06390000 


063100 


05 A023-1 . 






06400000 


063200 


10 A023-1-NUM-IN 


PIC 


9(4) . 


06410000 


063300 


10 FILLER 


PIC 


X. 


06420000 


063400 


10 AO 2 3-1 -DEC -IN 


PIC 


999. 


06430000 


063500 


10 A02 3-1 -MINUS-IN 


PIC 


X. 


06440000 


063600 


05 FILLER 


PIC 


X. 


06450000 


063700 


05 A012A-1 


PIC 


X. 


06460000 


063800 


05 FILLER 


PIC 


XX. 


06470000 


063900 


05 A008W-1. 






06480000 


064000 


10 A008-1-IN 


PIC 


9(7) . 


06490000 


064100 


10 AO 08-1 -MINUS-IN 


PIC 


X. 


06500000 


00 


05 AC34-1-IN PIC 


9(6) 




0651064300 




FILLER PIC XX 






06520000 


064400 


05 A025-1 . 






06530000 


064500 


10 A025-1-IN 


PIC 


9(6) . 


06540000 


0 64 600 


10 AO 2 5-1 -MINUS -IN 


PIC 


X. 


06550000 


06470C 


05 PL-PROG-OST-1 . 






06560000 


064800 


10 PL-PROG-OST-1 -IN 


PIC 


9(7) . 


06570000 


0649CC 


10 PL-PROG-OST-1 -MIN -IN 


PIC 


X. 


06580C00 


06500C 


05 C003E-1 


PIC 


X. 


06590000 


065100 


C5 FILLER 


PIC 


X. 


0660000C 


06520C 


05 A012-1. 






0661000C 


06530C 


10 A012-1-IN 


PIC 


9(7). 


0662000C 


06540C 


1C AC1 2-1 -MI NUS-IN 


PIC 


X. 


C663000C 


065500 


05 A021A-1. 






06640000 


065600 


10 A021A-1-IN 


PIC 


9(6) . 


06650000 


0657CC 


10 A021A-1 -MINUS-IN 


PIC 


X. 


06660000 


065800 


05 DUE-IN-OST-1 . 






06670000 


065900 


10 DUE-IN-OST-1 -IN 


PIC 


9(7) . 


06680000 


066000 


10 DUE-IN-OST-1 -MI NUS-IN 


PIC 


X. 


0 6 6 9000 C 


066100 


05 A008B-1. 






06700000 


066200 


10 A0083-1 -IN 


PIC 


9(7) . 


06710000 


066300 


10 A008B-1 -MINUS-IN 


PIC 


X. 


0672000C 


066400 


05 NET-EX-ROMT-1 . 






0673000C 


066500 


10 NET-EX-RQMT -1 -IN 


PIC 


9(7) . 


067400CC 


06660C 


10 NET-EX -RQMT-l-MIN-IN 


PIC 


X. 


06750000 


066700 


05 FILLER 


PIC 


X ( 1 2 ) . 


C676000C 


066800 








C677000C 


066900’ 
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067000 








06790000 


067100 


05 A001-2 


PIC 


XXX. 


068C00CC 


067200 


05 FILLER 


PIC 


X. 


06810000 


C6730C 


05 B046A-2 


PIC 


9(5) . 


0 682CC0C 


067400 


05 FILLER 


PIC 


X . 


0683C000 


06750C 


05 A003-2 


PIC 


XX. 


06840000 


067600 


05 FO 1 6-2 


PIC 


X. 


06850000 


067700 


05 FILLER 


PIC 


X. 


06860000 


067800 


05 A006A-2. 






06870000 


067900 


10 A006A-2-IN 


PIC 


9(6) . 


0 688000C 


068000 


10 AO 0 6A-2 -MI NUS-IN 


PIC 


X. 


0689000C 


06810C 


05 A004-2 . 






06900000 


068200 


10 AO 04 -2 -IN 


PIC 


9(6) . 


06910000 


068300 


10 AO 04 -2-MI NUS-IN 


PIC 


X. 


06920000 


068400 


05 A023-2. 






06930000 


068500 


10 A 0 2 3 - 2 - N U M - 1 N 


PIC 


9(4) . 


06940000 


068600 


10 FILLER 


PIC 


X. 


06950000 


068700 


10 AC 23 -2 -DEC-IN 


PIC 


999. 


06960000 


0 688 0C 


10 AC 2 3 -2 -MI NUS- IN 


PIC 


X. 


06970000 
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068900 


05 FILLER 


PIC 


X . 


06980000 


069000 


05 A0I2A-2 


PIC 


X. 


06990000 


069100 


05 FILLER 


PIC 


XX. 


07000000 


069200 


05 A0C8W-2. 






07010000 


06930C 


10 A 00 8 -2 -IN 


PIC 


9(7) . 


07C20000 


069400 


10 AO 0 8-2 -MINUS-IN 


PIC 


X. 


07030000 


069500 


05 A034-2-IN 


PIC 


9(6) . 


07040000 


069600 


05 FILLER 


PIC 


XX. 


07050000 


069700 


05 A025-2. 






07060000 


069800 


10 A025-2-IN 


PIC 


9(6) . 


0707C000 


069900 


10 AC25-2 -MINUS-IN 


PIC 


X. 


07080000 


070000 


05 PL-PROG-OST-2 . 






07090000 


070100 


10 PL-PROG-OST-2 -IN 


PIC 


9(7) . 


07100000 


070200 


10 PL-PROG-OST-2 -MIN -IN 


PIC 


X. 


07110000 


070300 


05 C003E-2 


PIC 


X . 


0712000C 


070400 


05 FILLER 


PIC 


X. 


07130000 


070500 


05 A012-2. 






07140000 


070600 


10 AC12-2-IN 


PIC 


9(7) . 


0715C000 


070700 


10 AO 1 2-2 -MINUS- IN 


PIC 


X. 


07160000 


07080C 


05 A02IA-2. 




070900 


10 




A021A-2- 


-IN 






PIC 9 (6) . 




07180000 




071000 


10 A021A-2 -MINUS-IN 


PIC 


X. 


07190000 


071100 


05 DUE-IN-OST-2 . 






07200000 


071200 


10 DUE-IN-OST-2 -IN 


PIC 


9(7) . 


0721 OCOO 


071300 


10 DUE-IN-CST-2-MINUS-IN 


PIC 


X. 


07220000 


071400 


05 A008E-2. 






07230000 


071500 


10 AO 0 83-2-IN 


PIC 


9(7) . 


07240000 


071600 


10 A008B-2 -MINUS-IN 


PIC 


X. 


07250000 


071700 


05 NET-EX-RQMT-2 . 






07260000 


071800 


10 NET-EX-RQMT-2 -IN 


PIC 


9 (7) . 


07270000 


071900 


10 NET-EX-RQMT-2 -MI N-IN 


PIC 


X. 


07280000 


072000 


05 FILLER 


PIC 


X (1 2 ) . 


07290000 


072100 








07300000 


072200 








07310000 


072300* 
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07320000 


072400 








07330000 


072500 


05 A001-3 


PIC 


XXX. 


07340000 


072600 


05 FILLER 


PIC 


X. 


07350000 


072700 


05 B046A-3 


PIC 


9 (5) . 


07360000 


072800 


05 FILLER 


PIC 


X. 


07370000 


072900 


05 A003-3 


PIC 


XX. 


07380000 


073000 


05 F016-3 


PIC 


X. 


0739C000 


073100 


05 FILLER 


PIC 


X . 


07400000 


073200 


05 A0C6A-3. 






0741000C 


073300 


10 A006A-3-IN 


PIC 


9(6) . 


07420000 


073400 


10 A006A-3-MINUS-IN 


PIC 


X. 


07430000 


073500 


05 A004-3. 






07440000 


073600 


10 AO 0 4-3-IN 


PIC 


9(6) . 


07450000 


073700 


10 AO 0 4 -3-MINUS- IN 


PIC 


X. 


07460000 


073800 


05 A023-3 . 






07470000 


073900 


10 AC23-3-NUM-IN 


PIC 


9(4) . 


07480000 


074000 


10 FILLER 


PIC 


X. 


07490000 


C 7 4 1 0 0 


10 AC23-3 -DEC-IN 


PIC 


999. 


07500000 


074200 


10 A 02 3-3 -MINUS- IN 


PIC 


X. 


07510000 


074300 


05 FILLER 


PIC 


X . 


07520000 


074400 


05 A012A-3 


PIC 


X. 


07530000 


074500 


05 FILLER 


PIC 


XX. 


07540000 


074600 


05 A008W-3 . 






07550000 


074700 


10 AO 08-3-IN 


PIC 


9(7) . 


07560000 


074800 


10 AO 0 8 -3 -MINUS-IN 


PIC 


X . 


07570000 


074900 


05 A034-3-IN 


PIC 


9(6) . 


07580000 


075000 


05 FILLER 


PIC 


XX . 


07590000 


075100 


05 AC 25-3 . 






07600000 
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075200 


10 A025-3-IN 


PIC 9(6). 


07610000 


075300 


10 A025-3 -MINUS-IN 


PIC X. 


07620000 


075400 


05 PL-PROG-OST-3. 




07630000 


075500 


10 PL-PROG-OST-3 -IN 


PIC 9(7). 


07640000 


075600 


10 PL-PROG-OST-3 -MIN -IN 


PIC X. 


07650000 


075700 


05 C0C3E-3 


PIC X. 


07660000 


075800 


05 FILLER 


PIC X. 


07670000 


075900 


05 A012-3. 




07680000 


076000 


10 A012-3-IN 


PIC 9(7). 


07690000 


076100 


10 AO 12 -3 -MINUS- IN 


PIC X. 


07700000 


076200 


05 A021A-3 . 




07710000 


076300 


10 A021A-3-IN 


PIC 9(6). 


07720000 


076400 


10 AO 21A-3 -MINUS-IN 


PIC X. 


07730000 


076500 


05 DUE-IN-OST-3 . 




07740000 


076600 


10 DUE-IN-OST-3 -IN 


PIC 9 (7) . 


07750000 


076700 


10 DUE-IN-OST-3 -MINUS- IN 


PIC X. 


07760000 


076800 


05 A008B-3. 




07770000 


076900 


10 A008B-3-IN 


PIC 9 (7) . 


07780000 


077000 


10 A008B-3 -MINUS -IN 


PIC X. 


07790000 


077100 


05 NET-EX -RQMT-3. 




07800000 


077200 


1C NET-EX -RQMT-3 -IN 


PIC 9(7). 


07810000 


077300 


10 NET-EX-RQMT-3-MIN-IN 


PIC X. 


07820000 


077400 


05 FILLER 


PIC X (12) . 


07830000 


077500***’ 
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07770C 01 


WS-L-REC. 




07860000 


C 7 7 80 0 


05 IM-HDR-L. 




07870000 


07790C 


10 IM-FI LE-ID-L 


PIC X (5) . 


07880000 


07 8000 


10 IM-REQR-ID-L. 


PIC X (7) . 


07890000 


07 81 CC 


10 HDR-LRC-L 


PIC X (3) . 


07900000 


078200 


1C HDR-FGC-L 


PIC X (4) . 


0791000C 


078300 


10 HDR-F-REL-L 


PIC X. 


07920000 


078400 


10 HDR-NIIN-L 


PIC X (9) . 


07930000 


07850C 


10 PRINT-CODE-L 


PIC X. 


07940000 


078600 


IC SEQ-DATA-L 


PIC X (20) . 


07950000 


C78700 






C796000C 


078800**** 
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******■*■*****■*•***»*****★* 


******* ***07970000 


078900 


05 K001-L 


PIC XXX. 


07980000 


079000 


05 DD-DOC-IND-L 


PIC X. 


07990000 


079100 


05 K0C2-L001 -L 


PIC X (15) . 


08000000 


07 9200 


05 L001A-L 


PIC X (4) . 


0801 0000 


07930C 


05 FILLER 


PIC X. 


08020000 


079400 


05 L022-L 


PIC X (6) . 


08030000 


07 9500 


05 FILLER 


PIC X. 


08040000 


07960C 


05 AOOl-FROM-L 


PIC XXX. 


08C500CC 


079700 


05 FILLER 


PIC X. 


0806000C 


07 9800 


05 AO Ol-TO-L 


PIC XXX. 


08070000 


079900 


05 FILLER 


PIC X. 


08080000 


080000 


05 ORIG-QTY-L 


PIC 9(7). 


08C9C000 


0801 00 


05 SIGN-L 


PIC X. 


08100000 


080200 


05 FILLER 


PIC X. 


08110000 


080300 


05 C003E-L 


PIC X. 


08120000 


080400 


05 FILLER 


PIC XX. 


08130000 


08050C 


05 DELY-DATE-L 


PIC 9 (5) . 


08140000 


080600 


05 FILLER 


PIC X. 


0815000C 


080700 


05 L034-L. 




08160000 


080800 


10 L034-L-IN 


PIC S9 (6) . 


08170000 


080900 


10 LO 34 -L-MINUS-IN 


PIC X. 


08180000 


081000 


05 FILLER 


PIC X. 


08190000 


081100 


05 DATE-OF-ACTION-L 


PIC 9(5) . 


08200000 


081200 


05 FILLER 


PIC X. 


08210000 


081300 


05 TYPE-OF-ACTION-L 


PIC X. 


08220000 


081400 


05 FOLLOW-UP-IND-L 


PIC X. 


08230000 


081500 


05 EXPEDITE-IND-L 


PIC X. 


08240000 
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081600 
081700 
081800 
081900 
082000 
082100 
082200 
082300 
082400 
082500 
082600 
081 60C* * 
081600** 
081700 0 
08180C 
081900 
082000 
082100 
082200 
082300 
082400 
082500 
082600 
08270C 
0828 00 
08290C 
083C00 
0831 00 
083200 
08330C 
08340C 
083500 
0836CC 
08370C 
083800 
0839C0 
084000 
084100 



084200 
C8430C 
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086200 
086300 
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086600 
086700 
086800 
086900 
087000 
08710C* * 
087200 
087300 
087400 
C8750C 



05 


FILLER 


PIC X (4) . 


08250C00 


05 


A012A-FROM-L 


PIC X. 


08260C00 


05 


FILLER 


PIC X (6) . 


08270000 


05 


A012A-TO-L 


PIC X. 


08280000 


05 


FILLER 


PIC X (4) . 


08290000 


05 


L040-L 


PIC 9(6). 


08300000 


05 


FILLER 


PIC X (5) . 


08310000 


05 


K024-L 


PIC XXX. 


08320000 


05 


FILLER 


PIC X (20) . 


08330000 


05 


CC-L 


PIC X. 


08340000 


05 


FILLER 


PIC X (250) . 


08350000 
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08380017 


05 


IM-HDR-N. 




08390017 




10 IM-FILE-ID-N 


PIC X (5) . 


08400017 




1C IM-REQR-ID-N 


PIC X (7) . 


08410017 




10 HDR-LRC-N 


PIC XXX. 


08420017 




10 HDR-FGC-N 


PIC X (4) . 


08430017 




1C HDR-F-REL-N 


PIC X. 


08440017 




10 HDR-NI IN-N 


PIC X (9) . 


08450017 




10 PRINT-CODE-N 


PIC X. 


08460017 




10 SEQ-DATA-N 


PIC X (20) . 


08470017 


05 


PPR-KO 0 1 -IN 


PIC X (3) . 


C8480017 


05 


FILLER 


PIC X. 


08490017 


05 


PPR-KO 02-IN 


PIC X (14) . 


085C0017 


05 


FILLER 


PIC X. 


08510C17 


05 


PPR-A001-IN 


PIC XXX. 


08520017 


05 


FILLER 


PIC X. 


08530C17 


05 


PPR-AC12A-IN 


PIC X. 


08540017 


05 


FILLER 


PIC X. 


08550017 


05 


PPR-KO 1 7-IN 


PIC X (6) . 


08560017 


05 


FILLER 


PIC X. 


08570C17 


05 


PPR-OTY-IN 


PIC 9 (7) . 


08580017 


05 


FILLER 


PIC X. 


08590C17 


05 


PPR-K01 8 -IN 


PIC 9 (5) . 


08600017 


05 


FILLER 


PIC X. 


08610017 


05 


PPR-AC1 4A-IN . 




08620C17 




10 AOi 48-E-IN 


PIC X ( 4 ) . 


08630017 




10 A014F-IN 


PIC X. 


08640017 




10 AC14G-IN 


PIC X. 


08650017 


05 


FILLER 


PIC X. 


08660017 


05 


PPR-K024 -IN 


PIC XXX. 


08670017 


05 


FILLER 


PIC X. 


08680017 


05 


PPR-KC2 6-IN 


PIC XX. 


08690017 


05 


FILLER 


PIC X (316) . 


08700017 






>■****■*•»***** 



WS-P-REC. 



*08710017 

*08720000 

*08730000 

08740000 



05 IM-HDR-P. 




08750000 


10 IM-FILE-ID-P 


PIC X (5) . 


08760000 


10 IM-REQR-ID-P 


PIC X ( 7 ) . 


087700C0 


10 HDR-LRC-P 


PIC X (3) . 


08780000 


10 HDR-FGC-P 


PIC X ( 4 ) . 


08790000 


10 HDR-F-REL-P 


PIC X. 


08800000 


10 HDR-NIIN-P 


PIC X (9) . 


08810000 


10 PRINT-CODE-P 


PIC X. 


08820000 


10 SEQ-DATA-P 


PIC X (20) . 


08830000 


RST ALT NIIN ENTRY OF 


FIRST PRINT LINE* 


**************»***»***08840000 


05 FILLER 


PIC X (12) . 


08850000 


05 D016-1ST 


PIC X (9) . 


08860000 


05 FILLER 


PIC XXX. 


08870000 


05 D016A-1ST 


PIC 99. 


08880C00 



087600 


05 D016B-1ST 


PIC X. 


0889000C 


087700 


05 FILLER 


PIC X (5) . 


08 90000C 


087800* 


* * SECOND ALT N I IN ENTRY OF FIRST PRINT LINE********************* 


*08910000 


087900 


05 D01 6-2-lST 


PIC X (9) . 


08920000 


088000 


05 FILLER 


PIC XXX. 


08930000 


088100 


05 D016A-2-1ST 


PIC 99. 


08940000 


088200 


05 D01 6B-2-1 ST 


PIC X. 


08950000 


088300 


05 FILLER 


PIC X (5) . 


08960000 


088400* 


* *THIRD ALT NUN ENTRY OF FIRST PRINT LINE********************** 


*08970000 


088500 


05 D01 6-3-1ST 


PIC X (9) . 


08980000 


088600 


05 FILLER 


PIC XXX. 


08990000 


088700 


05 D016A-3-1ST 


PIC 99. 


09000000 


088800 


05 D016B-3-1ST 


PIC X. 


09010000 


088900 


05 FILLER 


PIC X (5) . 


09020000 


089000* 


* ’FOURTH ALT NUN ENTRY OF FIRST PRINT LINE********************* 


*09030000 


089100 


05 D01 6-4-1ST 


PIC X ( 9 ) . 


09040000 


089200 


05 FILLER 


PIC XXX. 


09050000 


089300 


05 D016A-4-1ST 


PIC 99. 


09060000 


0894CC 


05 D016B-4-1ST 


PIC X. 


09070000 


089500 


05 FILLER 


PIC X (5) . 


09080000 


089600* 


* ’FIFTH ALT NUN ENTRY OF FIRST PRINT LINE********************** 


*09090000 


089700 


05 D01 6-5-1ST 


PIC X (9) . 


09100000 


089800 


05 FILLER 


PIC XXX. 


C91100C0 


089900 


05 D016A-5-1ST 


PIC 99. 


09120000 


090000 


05 D016B-5-1ST 


PIC X. 


0913000C 


0901 0C 


05 FILLER 


PIC X (30) . 


09140000 


0902CC* 


* * ’FIRST ALT NUN ENTRY OF 2ND 


PRINT LINE*****************’***** 


*09150000 


090300 


05 DC16-2ND 


PIC X (9) . 


09160000 


090400 


05 FILLER 


PIC XXX. 


09170000 


090500 


05 D016A-2ND 


PIC 99. 


C 91 800 00 


090600 


05 D016B-2ND 


PIC X. 


09190000 


090700 


05 FILLER 


PIC X (5) . 


09200000 


0908C0* 


’’SECOND ALT NUN ENTRY OF 2ND 


PRINT LINE****************”***** 


*09210000 


090900 


05 D01 6-2-2ND 


PIC X (9) . 


09220000 


091000 


05 FILLER 


PIC XXX. 


09230000 


091100 


05 D016A-2-2ND 


PIC 99. 


09240000 


09120C 


05 D01 6B-2-2ND 


PIC X. 


09250000 


0 91 30 C 


05 FILLER 


PIC X (5) . 


09260000 


091400* 


* ’THIRD ALT NUN ENTRY OF 2ND 


FR T NT LINE**’******* * * * * * * **'»»'*'* , ** 


*09270000 


091500 


05 D01 6- 3- 2ND 


PIC X (9) . 


0 928CCCC 


091600 


05 FILLER 


PIC XXX. 


09290000 


0 91 70 C 


05 D01 6A-3-2ND 


PIC 99. 


09300000 


C9180C 


05 D01 6B-3-2ND 


PIC X. 


09310000 


091900 


C5 FILLER 


PIC X (5) . 


C932CCCC 


09200C* 


* ’FOURTH ALT NUN ENTRY OF 2ND 


PRI NT LINE********”***”*”***** 


*09330000 


092100 


05 D01 6-4 -2ND 


PIC X (9) . 


0 934 000 C 


092200 


05 FILLER 


PIC XXX. 


0935000C 


092300 


05 D01 6A-4 -2ND 


PIC 99. 


09360000 


0924CC 


05 D01 6E-4 -2ND 


PIC X. 


09370000 


092500 


05 FILLER 


PIC X (5) . 


0 938000C 


092600* 


* ’FIFTH ALT NUN ENTRY OF 2ND 


PRINT LINE* ***************»•'****** 


*09390000 


09270C 


05 D01 6-5-2ND 


PIC X (9) . 


09400000 


0 928 OC 


05 FILLER 


PIC XXX. 


0941000C 


092900 


05 D016A-5-2ND 


PIC 99. 


0 94200C0 


0 93 0 OC 


05 D01 6B-5-2ND 


PIC X. 


09430000 


093100 


05 FILLER 


PIC X (30) . 


09440000 


093200* 


’’FIRST ALT NUN ENTRY OF 3RD 


PRINT LINE*”**”********”*”**** 


*09450000 


093300 


05 D016-3RD 


PIC X (9) . 


0946C000 


09340C 


05 FILLER 


PIC XXX. 


09470000 


093500 


05 D016A-3RD 


PIC 99. 


09480000 


093600 


05 D016B-3RD 


PIC X. 


09490000 


093700 


05 FILLER 


PIC X (5) . 


C950000C 


C93800* 


’’SECOND ALT NUN ENTRY OF 3RD 


PRINT LINE”**””*”””*””*” 


*09510000 


093900 


05 DC1 6-2-3RD 


PIC X (9) . 


09520000 



094000 


05 FILLER 




PIC XXX. 


09530000 


094100 


05 D016A-2-3RD 




PIC 99. 


09540000 


094200 


05 D01 6B-2-3RD 




PIC X. 


09550000 


094300 


05 FILLER 




PIC X (5 ) . 


09560000 


094400* 


* *THIRD ALT NIIN ENTRY 


OF 3RD PRINT LINE* ***************** * 


******09570000 


094500 


05 D01 6-3-3RD 




PIC X ( 9) . 


09580000 


094600 


05 FILLER 




PIC XXX. 


09590000 


094700 


05 D016A-3-3RD 




PIC 99. 


09600000 


094800 


05 D016B-3-3RD 




PIC X. 


09610000 


094900 


05 FILLER 




PIC X (5) . 


09620000 


095000* 


* *FOURTH ALT NIIN ENTRY OF 3RD 


PRINT LINE****************** 


******09630000 


095100 


05 D016-4-3RD 




PIC X (9) . 


09640000 


095200 


05 FILLER 




PIC XXX. 


09650000 


095300 


05 D016A-4-3RD 




PIC 99. 


09660000 


095400 


05 D016B-4-3RD 




PIC X. 


09670000 


095500 


05 FILLER 




PIC X (5) . 


09680000 


095600* 


* *FIFTH ALT NIIN ENTRY 


OF 3RD PRINT LINE***************’*** 


******09690000 


095700 


05 D016-5-3RD 




PIC X (9) . 


09700000 


095800 


05 FILLER 




PIC XXX. 


09710000 


095900 


05 D01 6A-5-3RD 




PIC 99. 


09720000 


096000 


05 D016B-5-3RD 




PIC X. 


09730000 


096100 


05 FILLER 




PIC X (18) . 


09740000 


096200* 


********************** 


********* 


**************************** 


******09750000 


096300 


01 WS-R-REC. 






09760000 


096400 


05 IM-HDR-R. 






09770000 


096500 


10 im-file-id-r 




PIC X (5) . 


09780000 


096600 


10 IM-REQR-ID-R 




PIC X (7) . 


09790000 


096700 


10 HDR-LRC-R 




PIC X (3) . 


09800000 


096800 


10 HDR-FGC-R 




PIC X (4) . 


09810000 


096900 


10 HDR-F-REL-R 




PIC X. 


09820000 


09700C 


10 HDR-NI IN-R 




PIC X (9) . 


09830000 


097100 


10 PRINT-CODE-R 




PIC X. 


09840000 


097200 


10 SEQ-DATA-R 




PIC X (20) . 


09850C00 


097300’ 


* ’FIRST APPL ENTRY OF ! 


1ST PRINT 


LINE********************* ** 


**** **09860000 


097400 


05 D009-1ST 




PIC X (10) . 


09870000 


097500 


05 FILLER 




PIC XX. 


09880000 


097600 


05 D009A-1ST 




PIC X. 


09890000 


097700 


05 FILLER 




PIC X. 


09900000 


0 97 8 00 


05 D011-1ST 




PIC 9(6). 


09910000 


097900 


05 FILLER 




PIC X (4) . 


09920000 


098000 


05 F018-1ST 




PIC 999. 


09930000 


098100 


05 FILLER 




PIC X. 


09940000 


098200 


05 D01 3-1ST 




PIC XX. 


09950000 


098300 


05 FILLER 




PIC X (10) . 


0 996000C 


098400* 


* * SECOND APPL ENTRY OF 


1ST PRIN 


"T- ********************* 


***** *09970000 


098500 


05 D00 9-2-1ST 




PIC X (10) . 


09980000 


098600 


05 FILLER 




PIC XX. 


09990000 


098700 


05 D00 9A-2-1ST 




PIC X. 


10000000 


098800 


05 FILLER 




PIC X. 


10C10000 


098900 


05 D011-2-1ST 




PIC 9 (6) . 


10020000 


099000 


05 FILLER 




PIC X (4) . 


10030000 


099100 


05 F01 8-2-1ST 




PIC 999. 


10040000 


099200 


05 FILLER 




PIC X. 


10050000 


099300 


05 D01 3-2-1ST 




PIC XX. 


10060000 


099400 


05 FILLER 




PIC X (10) . 


10070000 


099500* 


* * THIRD APPL ENTRY OF 


1ST PRINT 


LINE********************* ** 


******10080000 


099600 


05 D00 9-3-1 ST 




PIC X (10) . 


10090000 


0997C0 


05 FILLER 




PIC XX. 


10100000 


099800 


05 D00 9A-3-1ST 




PIC X. 


10110000 


099900 


05 FILLER 




PIC X. 


10120000 


100000 


05 D01 1-3-1ST 




PIC 9(6). 


10130000 


100100 


05 FILLER 




PIC X (4) . 


10140000 


100200 


05 F01 8-3-1 ST 




PIC 999. 


10150000 


100300 


05 FILLER 




PIC X. 


10160000 



112 



100400 


05 D01 3-3-1 ST 








PIC XX. 


10170000 


100500 


05 FILLER 








PIC X (15) . 


10180000 


100600* 


* *FIRST APPL ENTRY 


OF 


2ND 


PRINT 


LINE************************** 


***10190000 


100700 


05 D009-2ND 








PIC X (1 0 ) . 


10200000 


100800 


05 FILLER 








PIC XX. 


10210000 


100900 


05 D009A-2ND 








PIC X. 


10220000 


101000 


05 FILLER 








PIC X. 


10230000 


101100 


05 D011-2ND 








PIC 9(6). 


10240000 


101200 


05 FILLER 








PIC X (4) . 


10250000 


101300 


05 F018-2ND 








PIC 999. 


10260000 


101400 


05 FILLER 








PIC X. 


10270000 


101500 


05 D013-2ND 








PIC XX. 


10280000 


101600 


05 FILLER 








PIC X (10) . 


10290000 


101700* 


* *SECOND APPL ENTRY 


' OF 


‘ 2ND PRINT LINE************************* 


***10300000 


101800 


05 DO 0 9-2-2ND 








PIC X (10) . 


10310000 


101900 


05 FILLER 








PIC XX. 


10320000 


102000 


05 DO 0 9A-2-2ND 








PIC X. 


10330000 


102100 


05 FILLER 








PIC X. 


10340000 


102200 


05 D011-2-2ND 








PIC 9(6). 


10350000 


102300 


05 FILLER 








PIC X ( 4 ) . 


10360000 


102400 


05 F01 8-2-2ND 








PIC 999. 


10370000 


102500 


05 FILLER 








PIC X. 


10380000 


102600 


05 D01 3-2-2ND 








PIC XX. 


10390000 


102700 


05 FILLER 








PIC X (10) . 


10400000 


10280C* 


* * THIRD APPL ENTRY 


OF 


2ND 


PRINT 


2 J 2JJjr***********w***»ir*w»t*ir*'*** 


***10410000 


102900 


05 D00 9-3-2ND 








PIC X (10) . 


10420000 


103000 


05 FILLER 








PIC XX. 


10430000 


1 031 0C 


05 DOC 9A-3-2ND 








PIC X. 


10440000 


103200 


05 FILLER 








PIC X. 


104500C0 


103300 


05 D01 1-3-2ND 








PIC 9(6). 


10460000 


103400 


05 FILLER 








PIC X (4) . 


10470000 


103500 


05 FO 1 8 -3 -2ND 








PIC 999. 


10480000 


103600 


05 FILLER 








PIC X. 


10490000 


103700 


05 D013-3-2ND 








PIC XX. 


10500000 


103800 


05 FILLER 








PIC X (15) . 


10510000 


10390C* 


**FIRST APPL ENTRY 


OF 


3RD 


PRINT 


LINE************************** 


***10520000 


104000 


05 D009-3RD 








PIC X (10) . 


10530000 


104100 


05 FILLER 








PIC XX. 


10540000 


104200 


05 D0C9A-3RD 








PIC X. 


10550000 


104300 


05 FILLER 








PIC X. 


1056000C 


104400 


05 D01 1 -3RD 








PIC 9(6). 


10570000 


1C4500 


05 FILLER 








PIC X (4) . 


10580000 


104600 


05 F018-3RD 








PIC 999. 


10590000 


104700 


05 FILLER 








PIC X. 


1060000C 


104800 


05 DC13-3RD 








PIC XX. 


10610000 


104900 


05 FILLER 








PIC X (10) . 


10620C00 


105000* 


* * SECOND APPL ENTRY 


OF 


3RD 


■ PRINT LINE************************* 


***10630000 


105100 


05 DO 0 9-2-3RD 








PIC X (10) . 


10640000 


105200 


05 FILLER 








PIC XX. 


10650000 


105300 


05 DO 0 9A-2-3RD 








PIC X. 


10660000 


105400 


05 FILLER 








PIC X. 


10670000 


105500 


05 D01 1 -2 -3RD 








PIC 9(6). 


10680000 


105600 


05 FILLER 








PIC X (4) . 


10690000 


105700 


05 F01 8-2-3RD 








PIC 999. 


10700000 


105800 


05 FILLER 








PIC X. 


10710000 


105900 


05 D01 3-2-3RD 








PIC XX. 


10720000 


106000 


05 FILLER 








PIC X (10) . 


10730000 


106100* 


**THIRD APPL ENTRY 


OF 


3RD 


PRINT 


LINE************************** 


***10740000 


106200 


05 D00 9-3-3RD 








PIC X(10) . 


10750000 


106300 


05 FILLER 








PIC XX. 


10760000 


106400 


05 DO 0 9A-3-3RD 








PIC X. 


10770000 


106500 


05 FILLER 








PIC X. 


10780000 


106600 


05 D011-3-3RD 








PIC 9(6). 


10790000 


106700 


05 FILLER 








PIC X ( 4 ) . 


10800000 



113 



106800 


05 


F018-3-3RD 


PIC 999. 


10810000 


106900 


05 


FILLER 


PIC X. 


10820000 


107000 


05 


D01 3-3-3RD 


PIC XX. 


10830000 


107100 


05 


FILLER 


PIC X (15) . 


10840000 


107200* 


* ************************ 


**************************** 


****♦****•,•.*20850000 


107300* 


************************* 


X*************************** 


************20860000 


107400 


01 ws* 


-T-REC. 




10870000 


107500 


05 


IM-HDR-T . 




10880000 


107600 




10 IM-FILE-ID-T 


PIC X (5) . 


10890000 


107700 




10 IM-REQR-ID-T 


PIC X (7) . 


10900000 


107800 




10 HDR-LRC-T 


PIC XXX. 


10910000 


107900 




10 HDR-FGC-T 


PIC X (4) . 


10920000 


108000 




10 HDR-F-REL-T 


PIC X. 


10930000 


108100 




10 HDR-NI IN-T 


PIC X (9) . 


10940000 


108200 




10 PRINT-CODE-T 


PIC X. 


10950000 


108300 




10 SEQ-DATA-T 


PIC X (20) . 


10960000 


108400 


05 


BB-K002-K020-IN 


PIC X (15) . 


10970000 


108500 


05 


FILLER 


PIC X. 


10980000 


108600 


05 


BB-K036-IN 


PIC 9 (5) . 


10990000 


108700 


05 


FILLER 


PIC X. 


11000000 


108800 


05 


BB-K024-IN 


PIC XXX. 


11010000 


108900 


05 


FILLER 


PIC X. 


11020000 


109000 


05 


BB-K022-IN 


PIC XX. 


11030000 


109100 


05 


FILLER 


PIC X. 


11040000 


109200 


05 


BB-K025-IN 


PIC 99. 


11050000 


109300 


05 


FILLER 


PIC XX. 


11060000 


109400 


05 


DO-NO-SUB-IND-IN 


PIC X. 


11070000 


109500 


05 


FILLER 


PIC X. 


11080000 


109600 


05 


BB-K02 6-IN 


PIC XX. 


11090000 


109700 


05 


FILLER 


PIC X (338) . 


11100000 


109800* 


******* 


******************* 


**************************** 


************21110000 


109900* 


******* 


******************* 


**************************** 


************22120000 


110000 


01 ws- 


-V-REC. 




11130000 


110100 


05 


IM-HDR-V . 




11140000 


110200 




10 IM-FILE-ID-V 


PIC X (5) . 


11150000 


110300 




10 IM-REQR-ID-V 


PIC X (7) . 


11160000 


110400 




10 HDR-LRC-V 


PIC XXX. 


11170000 


110500 




10 HDR-FGC-V 


PIC X (4) . 


11180000 


110600 




10 HDR-F-REL-V 


PIC X. 


11190000 


110700 




10 HDR-NIIN-V 


PIC X (9) . 


11200000 


110800 




10 PRINT-CODE-V 


PIC X. 


11210000 


110900 




10 SEQ-DATA-V 


PIC X (20) . 


11220000 


111000 


05 


C035-IN-1 


PIC X (5) . 


11230000 


111100 


05 


C038-IN-1 


PIC X. 


112400C0 


111200 


05 


FILLER 


PIC X. 


11250000 


111300 


05 


D00 1 -IN-1 


PIC X (32) . 


1 126000C 


111400 


05 


FILLER 


PIC X. 


11270000 


111500 


05 


C035-IN-2 


PIC X (5) . 


11280000 


111600 


05 


C038-IN-2 


PIC X. 


11290000 


111700 


05 


FILLER 


PIC X. 


1130000C 


111800 


05 


D001-IN-2 


PIC X (32) . 


11310000 


111900 


05 


FILLER 


PIC X. 


11320000 


112000 


05 


C035-IN-3 


PIC X (5 ) . 


11330000 


112100 


05 


CO 38 -IN-3 


PIC X. 


11340000 


112200 


05 


FILLER 


PIC X. 


11350000 


112300 


05 


D001-IN-3 


PIC X (32 ) . 


11360000 


112400 


05 


FILLER 


PIC X ( 6) . 


11370000 


112500 


05 


CO 35-IN-4 


PIC X (5) . 


11380000 


112600 


05 


CC38-IN-4 


PIC X. 


11390000 


112700 


05 


FILLER 


PIC X. 


11400000 


112800 


05 


D001 -IN-4 


PIC X (32) . 


11410000 


112900 


05 


FILLER 


PIC X. 


11420000 


113000 


05 


CO 35-IN-5 


PIC X (5) . 


11430000 


113100 


05 


C038-IN-5 


PIC X. 


11440000 



1 14 



113200 




05 


FILLER 


PIC X. 


11450000 


113300 




05 


D001-IN-5 


PIC X (32) . 


11460000 


113400 




05 


FILLER 


PIC X. 


11470000 


113500 




05 


C035-IN-6 


PIC X { 5 ) . 


11480000 


113600 




05 


C038-IN-6 


PIC X. 


11490000 


113700 




05 


FILLER 


PIC X. 


11500000 


113800 




05 


D001-IN-6 


PIC X (32) . 


11510000 


113900 




05 


FILLER 


PIC X (6) . 


11520000 


114000 




05 


C035-IN-7 


PIC X (5) . 


11530000 


114100 




05 


C038-IN-7 


PIC X. 


11540000 


114200 




05 


FILLER 


PIC X. 


11550000 


114300 




05 


D001-IN-7 


PIC X (32) . 


11560000 


114400 




05 


FILLER 


PIC X. 


11570000 


114500 




05 


C035-IN-8 


PIC X (5 ) . 


11580000 


114600 




05 


C038-IN-8 


PIC X. 


11590000 


114700 




05 


FILLER 


PIC X. 


11600000 


114800 




05 


D001-IN-8 


PIC X (32) . 


11610000 


114900 




05 


FILLER 


PIC X. 


11620000 


115000 




05 


C035-IN- 9 


PIC X (5) . 


11630000 


115100 




05 


C038-IN-9 


PIC X. 


11640000 


115200 




05 


FILLER 


PIC X. 


11650000 


115300 




05 


D001-IN-9 


PIC X (32) . 


11660000 


115400 




05 


FILLER 


PIC X (6) . 


11670000 


11550C* 


★ * * 


* * * * 


'*****»*************»»** 


*********************** 




115600* 




* * * * 


1 * * ********************** 


*********************** 


************11690000 


115700 


01 


ws- 


•Z-REC. 




11700000 


115800 




05 


IM-HDR-Z. 




11710000 


115900 






10 IM-FILE-ID-Z 


PIC X (5) . 


11720000 


116000 






10 IM-REQR-ID-Z 


PIC X (7) . 


11730000 


116100 






10 HDR-LRC-Z 


PIC XXX. 


11740000 


116200 






10 HDR-FGC-Z 


PIC X (4) . 


11750000 


116300 






10 HDR-F-REL-Z 


PIC X. 


11760000 


11 64 CO 






10 HDR-NIIN-Z 


PIC X (9) . 


11770000 


116500 






10 PRINT-CODE-Z 


PIC X. 


11780000 


116600 






10 SEQ-DATA-Z 


PIC X (20) . 


11790000 


116700 




05 


FILLER 


PIC XXX. 


11800000 


116800 




05 


DO 93-IN 


PIC X (4) . 


11810000 


116900 




05 


FILLER 


PIC X (7) . 


11820000 


117000 




05 


DO 95-IN-l 


PIC X ( 4 ) . 


1183000C 


117100 




05 


FILLER 


PIC X (6) . 


11840000 


117200 




05 


DO 95-IN-2 


PIC X (4) . 


11850000 


117300 




05 


FILLER 


PIC X (6) . 


11860000 


117400 




05 


DO 95-IN-3 


PIC X (4) . 


11870000 


117500 




05 


FILLER 


PIC X (6) . 


11880000 


11760C 




05 


DO 95-IN- 4 


PIC X (4) . 


1189C000 


117700 




05 


FILLER 


PIC X (6) . 


11900000 


11780C 




05 


D095-IN-5 


PIC X (4) . 


11910000 


117900 




05 


FILLER 


PIC X (6) . 


11920000 


118000 




05 


DC95-IN-6 


PIC X (4) . 


11930000 


118100 




05 


FILLER 


PIC X (6) . 


11940000 


118200 




05 


D095-IN-7 


PIC X (4) . 


11950000 


118300 




05 


FILLER 


PIC X { 6) . 


11960000 


118400 




05 


D095-IN-8 


PIC X (4) . 


11970000 


118500 




05 


FILLER 


PIC X (6) . 


11980000 


118600 




05 


DO 95-IN-9 


PIC X (4) . 


11990000 


118700 




05 


FILLER 


PIC X (6) . 


12000000 


118800 




05 


DO 95-IN-10 


PIC X (4) . 


12010000 


118900 




05 


FILLER 


PIC X (263) . 


12020000 


119000* 


* * * 


* ★ * * 


*********************** 


*********************** 


★»**********12030000 


119100 


01 


ws- 


Z2-REC. 




12040000 


119200 




05 


IM-HDR-Z2. 




12050000 


119300 






10 IM-FILE-ID-Z 2 


PIC X (5) . 


12060000 


119400 






10 IM-REQR-ID-Z2 


PIC X (7) . 


12070000 


119500 






10 HDR-LRC-Z2 


PIC XXX. 


12080000 



115 



119600 




10 HDR-FGC-Z2 


PIC X (4) . 


12090000 


119700 




10 HDR-F-REL-Z2 


PIC X. 


12100000 


119800 




10 HDR-NIIN-Z2 


PIC X (9) . 


12110000 


119900 




10 PRINT-CODE-Z2 


PIC X. 


12120000 


120000 




10 SEQ-DATA-Z2 


PIC X (20) . 


12130000 


120100 


05 


FILLER 


PIC XXX. 


12140000 


120200 


05 


D093-IN-Z2-1 


PIC X (4) . 


12150000 


120300 


05 


FILLER 


PIC X (5) . 


12160000 


120400 


05 


DO 94-IN-Z2-1 


PIC X (8) . 


12170000 


120500 


05 


FILLER 


PIC XX. 


12180000 


120600 


05 


D094-IN-Z2-2 


PIC X (8) . 


12190000 


120700 


05 


FILLER 


PIC XX. 


12200000 


120800 


05 


D094-IN-Z2-3 


PIC X (8) . 


12210000 


120900 


05 


FILLER 


PIC XX. 


12220000 


121000 


05 


D094-IN-Z2-4 


PIC X (8) . 


12230000 


121100 


05 


FILLER 


PIC XX. 


12240000 


121200 


05 


DO 94-IN-Z2-5 


PIC X { 8 ) . 


12250000 


121300 


05 


FILLER 


PIC XX. 


12260000 


121400 


05 


D094-IN-Z2-6 


PIC X (8) . 


12270000 


121500 


05 


FILLER 


PIC XX. 


12280000 


121600 


05 


DO 94-IN-Z2-7 


PIC X (8) . 


12290000 


121700 


05 


FILLER 


PIC XX. 


12300000 


121800 


05 


D094-IN-Z2-8 


PIC X ( 8 ) . 


12310000 


12190C 


05 


FILLER 


PIC XX. 


12320000 


122000 


05 


DO 94 -IN-Z2-9 


PIC X (8) . 


12330000 


122100 


05 


FILLER 


PIC XX. 


12340000 


122200 


05 


D094 -IN-Z2-1 0 


PIC X (8) . 


12350000 


122300 


05 


FILLER 


PIC XX. 


12360000 


122400 


05 


FILLER 


PIC X (16) . 


12370000 


122500 


05 


D093-IN-Z2-2 


PIC X (4) . 


12380000 


122600 


05 


FILLER 


PIC X (5) . 


12390000 


122700 


05 


FILLER 


PIC XX. 


12400000 


122800 


05 


D095-IN-Z2-1 


PIC X (4) . 


12410000 


12290C 


05 


FILLER 


PIC X (6) . 


12420000 


123000 


05 


D095-IN-Z2-2 


PIC X (4) . 


12430000 


123100 


05 


FILLER 


PIC X (6) . 


12440000 


12320C 


05 


DO 95-IN-Z2-3 


PIC X (4) . 


12450000 


123300 


05 


FILLER 


PIC X (6) . 


12460000 


123400 


05 


DC 95-IN-Z2-4 


PIC X (4) . 


12470000 


123500 


05 


FILLER 


PIC X (6) . 


12480000 


123600 


05 


DO 95-IN-Z2-5 


PIC X (4) . 


12490000 


123700 


05 


FILLER 


PIC X (6) . 


12500000 


12380C 


05 


DO 95-IN-Z2- 6 


PIC X (4) . 


12510000 


123900 


05 


FILLER 


PIC X (6) . 


12520000 


124000 


05 


D095-IN-Z2-7 


PIC X (4) . 


12530000 


124100 


05 


FILLER 


PIC X (6) . 


12540000 


12420C 


05 


D095-IN-Z2-8 


PIC X (4) . 


12550000 


124300 


05 


FILLER 


PIC X (6) . 


12560000 


124400 


05 


D095-IN-Z2- 9 


PIC X (4) . 


12570000 


124500 


05 


FILLER 


PIC X (6) . 


12580000 


124600 


05 


D095-IN-Z2-10 


PIC X (4) . 


12590000 


124700 


05 


FILLER 


PIC X (138) . 


12600000 


124800*** 


********************** 

OUTPUT RECORDS 


************************************* 

**12620000 


**124900** 


125000**** 


* * * * 


****************** 


************************************* 


***12630000 


125100 01 


OUT 


-REC-1 - 




12640000 


125200 


05 


D046D-1 


PIC X (9) . 


12650000 


125300 


05 


PRINT-CODE-1 


PIC 99 VALUE 01. 


12660000 


125400 


05 


B045-1 


PIC 9 (5) . 


12670000 


125500 


05 


C016-1 


PIC X. 


12680000 


125600 


05 


C012-1 


PIC 9(5) . 


12690000 


125700 


05 


B067E-1 


PIC X. 


12700000 


125800 


05 


B007-1 


PIC X. 


12710000 


125900 


05 


C005-1 


PIC XX. 


12720000 



116 



126000 




05 


B055-1 


PIC 


9 (6) . 99. 


12730000 


126100 




05 


C004-1 


PIC 


X (22) . 


12740000 


126200 




05 


B002B-1 


PIC 


XXX. 


12750000 


126300 




05 


C0Q1A-1 


PIC 


X ( 4 ) . 


12760000 


126400 




05 


COQlB-l 


PIC 


X. 


12770000 


126500 




05 


C003-1 


PIC 


XX. 


12780000 


126600 




05 


C003A-1 


PIC 


X. 


12790000 


126700 




05 


C042-1 


PIC 


X ( 4 ) . 


12800000 


126800 




05 


DO 1 0 -A-D-l 


PIC 


X (5) . 


12810000 


126900 




05 


C028-1 


PIC 


X. 


12820000 


127000 




05 


D014A-1 


PIC 


XX. 


12830000 


127100 




05 


COO 9-1 


PIC 


XX. 


12840000 


127200 




05 


B001-1 


PIC 


X (5) . 


12850000 


127300 




05 


B011A-1 


PIC 


99.99. 


12860000 


127400 




05 


D025DEF-E089-1 


PIC 


X (4) . 


12870000 


127500 




05 


C003B-1 


PIC 


XX. 


12880000 


127600 




05 


B053-1 


PIC 


9(6) .99. 


12890000 


127700 




05 


FILLER 


PIC 


X (36) . 


12900000 


127800*************************** 




kw*************************** 


*12910000 


127900 


01 


OUT 


-REC-2. 






12920000 


128000 




05 


D046D-2 


PIC 


X ( 9) . 


12930000 


128100 




05 


PRINT-CODE-2 


PIC 


99 VALUE 02. 


12940000 


128200 




05 


A005-2 . 






12950000 


128300 






10 AO 05 -2 -M 


PIC 


X. 


12960000 


128400 






10 A005-2-N 


PIC 


9(7) . 


12970000 


128500 




05 


A005A-2. 






12980000 


128600 






10 A005A-2-M 


PIC 


X. 


12990000 


128700 






10 A005A-2-N 


PIC 


9(7) . 


13000000 


128800 




05 


B074-2 . 






13010000 


128900 






10 B074-2-M 


PIC 


X. 


13020000 


129000 






10 BO 7 4 -2 -N 


PIC 


9(5) .9. 


13030000 


129100 




05 


A011-2 


PIC 


9(8) . 


13040000 


129200 




05 


F007-2 


PIC 


9.99. 


13050000 


129300 




05 


D008-2 


PIC 


X(1Q) . 


13060000 


129400 




05 


FILLER 


PIC 


X (88) . 


13070000 


129500* 


* ★ ★ 


* * * * 


★ ★★*-**tr*»***-«**'*t*trx 


**•****★*•****■***★*■*■*■***■**★«★*■****•*•***** 


*13080000 


129600 


01 


OUT 


-REC-3. 






13090000 


129700 




05 


D046D-3 


PIC 


X (9) . 


13100000 


129800 




05 


PRINT-CODE-3 


PIC 


99 VALUE 03. 


13110000 


129900 




05 


B012-BG12C-3 


PIC 


9.99. 


13120000 


130000 




05 


B012F-3 


PIC 


9.99. 


13130000 


130100 




05 


FO 0 9-3 


PIC 


9.99. 


13140000 


130200 




05 


D012-3 


PIC 


XX. 


13150000 


13030C 




05 


D013C-3 


PIC 


X. 


13160000 


130400 




05 


D120-3 


PIC 


XX. 


13170000 


130500 




05 


B059-3 


PIC 


9(7) .99. 


13180000 


130600 




05 


FILLER 


PIC 


X (106) . 


13190000 


130700* 


* * * 


* * * * 


****■****■****■*»**■*■!►■* 


**•****★■**» 


r»*Hr****»********'jr*»**-******lt 


*13200000 


13080C 


01 


OUT 


-REC-4 . 






13210000 


130900 




05 


D046D-4 


PIC 


X (9) . 


13220000 


131000 




05 


PRINT-CODE-4 


PIC 


99 VALUE 04. 


13230000 


131100* 


★ * ★ 






TY ENTRY 1 


★ ★***•★•*■**★★■****•★★**★*•*«★★*★'*' 


*13240000 


131200 




05 


A001-4-1 


PIC 


XXX. 


13250000 


131300 




05 


B046A-4-1 


PIC 


9(5) . 


13260000 


131400 




05 


A012A-4-1 


PIC 


X. 


13270000 


131500 




05 


PL-PROG-OST- 4 -1 . 






13280000 


131600 




10 PL-PROG-4-1-M 


PIC 


X. 


13290000 


131700 




10 PL-PROG-4 -1 -N 


PIC 


9(7) . 


13300000 


131800 




05 


C003E-4-1 


PIC 


X. 


1 331000C 


131900 




05 


A012-4-1. 






13320000 


132000 






10 A012-4-1-M 


PIC 


X. 


13330000 


132100 






10 A012-4-1-N 


PIC 


9(7) . 


13340000 


132200 




05 


A021A-4-1 . 






13350000 


132300 






10 A021A-4-1 -M 


PIC 


X. 


1336000C 



117 



132400 




10 A021A-4-1-N 


PIC 


9(6) . 


13370000 


132500 


05 


A008B-4-1 . 






13380000 


132600 




10 A008B-4-1-M 


PIC 


X. 


13390000 


132700 




10 A008B-4-1-N 


PIC 


9(7) . 


13400000 


132800 


05 


FILLER 


PIC 


X (88) . 


13410000 


132900**** 


w**w***************** 


if********************************* 


******* 13 420000 


133000 01 


OUT' 


-REC-5. 






13430000 


133100 


05 


D046D-5 


PIC 


X ( 9) . 


1344000C 


133200 


05 


PRINT-CODE-5 


PIC 


99 VALUE 05. 


13450000 


133300 


05 


K001-5 


PIC 


XXX. 


13460000 


133400 


05 


K002-L001-5 


PIC 


X (15) . 


13470000 


133500 


05 


L001A-5 


PIC 


X ( 4 ) . 


13480000 


133600 


05 


L022-5 


PIC 


X ( 6) . 


13490000 


133700 


05 


A001-5 


PIC 


XXX. 


13500000 


133800 


05 


A001 -5-2ND 


PIC 


XXX. 


13510000 


133900 


05 


ORIG-QTY-5 


PIC 


9(7) . 


13520000 


134000 


05 


C003E-5 


PIC 


X. 


13530000 


134100 


05 


LO 0 9-5 


PIC 


9(5) . 


13540000 


134200 


05 


L034-5 . 






13550000 


134300 




10 L034-5-M 


PIC 


X. 


13560000 


134400 




10 L034-5-N 


PIC 


9(6) . 


13570000 


134500 


05 


A012A-5 


PIC 


X. 


13580000 


134600 


05 


A012A-5-2ND 


PIC 


X. 


13590000 


134700 


05 


FILLER 


PIC 


X (74 ) . 


1 360000C 



134800******************************************************************13610000 

134900********************************************************** x *******13620000 



135000 Cl 


OUT- 


-REC-6. 






13630000 


135100 


05 


D046D-6 


PIC 


X (9) . 


13640000 


135200 


05 


PRINT-CODE-6 


PIC 


99 VALUE 06. 


13650000 


135300 


05 


K001-6 


PIC 


XXX. 


13660000 


135400 


05 


K002-6 


PIC 


X (14) . 


13670000 


135500 


05 


A012A-6 


PIC 


X. 


13680000 


135600 


05 


KOI 7-6 


PIC 


X (6) . 


13690000 


135700 


05 


K006-6 


PIC 


9(7) . 


13700000 


135800 


05 


KOI 8-6 


PIC 


9(5) . 


13710000 


135900 


05 


K024-6 


PIC 


XXX. 


13720000 


136000 


05 


FILLER 


PIC 


X (90) . 


13730000 



136100******************************************************************13740000 



136200 01 


OUT 


-REC-7 . 






13750000 


136300 


05 


D046D-7 


PIC 


X (9) . 


1376C000 


136400 


05 


PRINT-CODE-7 


PIC 


99 VALUE 07. 


13770000 


136500 


05 


D016-7 


PIC 


X ( 9 ) . 


13780000 


136600 


05 


D016A-7 


PIC 


99. 


13790000 


136700 


05 


D016-7-2 


PIC 


X ( 9) . 


13800000 


136800 


05 


D016A-7-2 


PIC 


99. 


13810000 


136900 


05 


D016-7-3 


PIC 


X (9) . 


13820000 


137000 


05 


D016A-7-3 


PIC 


99. 


13830000 


137100 


05 


D016-7-4 


PIC 


X ( 9 ) . 


13840000 


137200 


05 


D016A-7-4 


PIC 


99. 


13850000 


1 373 00 


05 


D016-7-5 


PIC 


X (9) . 


13860000 


137400 


05 


D016A-7-5 


PIC 


99. 


13870000 


137500 


05 


D016-7-6 


PIC 


X ( 9) . 


13880000 


137600 


05 


D016A-7-6 


PIC 


99. 


13890000 


137700 


05 


DO 1 6-7-7 


PIC 


X (9) . 


13900000 


137800 


05 


D016A-7-7 


PIC 


99. 


13910000 


137900 


05 


D016-7-8 


PIC 


X ( 9 ) . 


13920000 


138000 


05 


D016A-7-8 


PIC 


99. 


13930000 


138100 


05 


D016-7-9 


PIC 


X ( 9) . 


13940000 


138200 


05 


D016A-7-9 


PIC 


99. 


13950000 


138300 


05 


D01 6-7-10 


PIC 


X ( 9) . 


13960000 


138400 


05 D016A-7-10 


PIC 99. 


13970000 


138500 


05 


FILLER 


PIC 


X (19) . 


13980000 


138600**** 
138700 01 


* * * * 

OUT 


•**»*** ir ***** WW ** W ** 

-REC-8 . 


***★*★*★*1 


*********************** 


*******1.3990000 

14000000 



118 



138800 


05 


D046D-8 


PIC X (9) . 


14010000 


138900 

139000 


05 


PRINT-CODE-8 


PIC 99 VALUE 08. 


14020000 

14030000 


139100* 


******* 


****** ******APP LIC A TI ON 


ENTRY 1 ****************** * 


********14040000 


139200 


05 


D009-8-1 


PIC X (10) . 


14050000 


139300 


05 


D011-8-1 


PIC 9(6) . 


14060000 


139400 


05 


F018-8-1 


PIC 999. 


14070000 


139500 

139600 


05 


D013-8-1 


PIC XX. 


14080000 

14090000 


139700* 


******* 


********** * * application 


ENTRY 2******************* 


******** 1 4 100 000 


139800 


05 


D009-8-2 


PIC X (10) . 


14110000 


139900 


05 


D011-8-2 


PIC 9(6). 


14120000 


140000 


05 


F018-8-2 


PIC 999. 


14130000 


140100 

140200 


05 


D013-8-2 


PIC XX. 


14140000 

14150000 


140300******************* * APPLICATION 


ENTRY 3 ******************* 


********14160000 


140400 


05 


D00 9-8 -3 


PIC X (10) . 


14170000 


140500 


05 


D01 1-8-3 


PIC 9(6). 


14180000 


140600 


05 


F018-8-3 


PIC 999. 


14190000 


140700 

140800 


05 


D013-8-3 


PIC XX. 


14200000 

14210000 



140900***** 



*************** 



APPLICATION ENTRY 4* 



****************** 



***** 14220000 



141000 


05 


DC09-8-4 


PIC X (10) . 


14230000 


141100 


05 


D011-8-4 


PIC 9(6). 


14240000 


141200 


05 


F018-8-4 


PIC 999. 


1 4250C00 


141300 

141400 


05 


D013-8-4 


PIC XX. 


14260000 

14270000 


1 4 1 5 00 * 


******* 


****** ******APPLI C ATION 


ENTRY 5**** 


***********************14280000 


14160C 


05 


D009-8-5 


PIC X (1C) . 


1429000C 


14170C 


C5 


D011-8-5 


PIC 9(6) . 


14300000 


14180C 


05 


F018-8-5 


PIC 999. 


14310000 


141900 

142000 


05 


D013-8-5 


PIC XX. 


14320000 

14330000 



142100* 



* * * ** * APPLICATION ENTRY 6**" 



*14340000 



142200 


05 


D009-8-6 


PIC X (10) . 


1435000C 


142300 


05 


D011-8-6 


PIC 9(6) . 


14360000 


142400 


05 


F018-8-6 


PIC 999. 


14370000 


142500 


05 


DC13-8-6 


PIC XX. 


1 4 380C00 


142600* 


* * * * * * tr 


********************** 


*************************** 


*********14390000 


142700 


05 


FILLER 


PIC X (3) . 


14400000 



142800***' 

142900***' 



* * * * * * * 



******** 



*14410000 
*1 4420000 



143000 


01 


OUT 


-REC-9. 






14430000 


143100 




05 


D046D-9 


PIC 


X (9) . 


14440000 


143200 




05 


PRINT-CODE-9 


PIC 


99 VALUE 09. 


14450000 


143300 




05 


K002-K020-9 


PIC 


X (15) . 


14460000 


143400 




05 


K036-9 


PIC 


9(5) . 


1447000C 


143500 




05 


K024-9 


PIC 


XXX. 


14480000 


143600 




05 


K022-9 


PIC 


XX. 


144900CC 


143700 




05 


K025-9 


PIC 


99. 


14500000 


14380C 




05 


K026-9 


PIC 


XX. 


14510000 


143900 




05 


FILLER 


PIC 


X (100) . 


14520000 


144000* 


* * * 


* * * * 


****************** 


********************************** 


******24530000 


144100 












14540000 


144200 


01 


OUT 


-REC-10 . 






14550000 


144300 




05 


D046D-10 


PIC 


X (9) . 


14560000 


144400 




05 


PRINT-CODE-10 


PIC 


99 VALUE 10. 


14570000 


144500 












14580000 


144600* 


* * * 


* * * * 


***************25^ 


REFERENCE 


ENTRY ********'***'*'****** 


******14590000 


144700 












14600000 


144800 




05 


C035-B-C-10-1 


PIC 


X (5) . 


14610000 


144900 




05 


C038-10-1 


PIC 


X. 


14620000 


145000 




05 


D001-C004C-10-1 


PIC 


X (32) . 


14630000 



145100 



14640000 



119 



145200**** 

145300 


* * * ★ 


***************2ND 


REFERENCE 


ENTRY* * * ' 


145400 


05 


C035-B-C-10-2 


PIC 


x (5 ) . 


145500 


05 


C038-10-2 


PIC 


X. 


145600 

145700 

145800 


05 


D001-C004C-10-2 


PIC 


X (32) . 


145900******** 




REFERENCE 


ENTRY***’ 


146000 

146100 


05 


C035-B-C-1 0-3 


PIC 


X (5) . 


146200 


05 


C038-1 0-3 


PIC 


X. 


146300 

146400 


05 


D001-C004C-10-3 


PIC 


X (32) . 


146500******** 




146600 

146700 


05 


FILLER 


PIC 


X (15 ) . 


146800********************************************* 


146900 01 


OUT 


-REC-11 . 






147000 


05 


D046D-11 


PIC 


X ( 9 ) . 


147100 


05 


PRINT-CODE-11 


PIC 


99 VALUE 


147200 


05 


DO 93-1 1 


PIC 


X<4) . 


147300 


05 


D095-11-1 


PIC 


X { 4 ) . 


147400 


05 


DO 95-1 1 -2 


PIC 


X<4) . 


147500 


05 


DO 95-1 1 -3 


PIC 


X (4) . 


147600 


05 


D095-1 1-4 


PIC 


X (4) . 


147700 


05 


DC95-11-5 


PIC 


X (4) . 


147800 


05 


DO 95-1 1 -6 


PIC 


X (4) . 


147900 


05 


D095-11 -7 


PIC 


X ( 4 ) . 


148000 


05 


DO 95-1 1 -8 


PIC 


X ( 4 ) . 


148100 


05 


DO 95-1 1 -9 


PIC 


X (4) . 


148200 


05 


D095-11-10 


PIC 


X { 4 ) . 


148300 


05 


FILLER 


PIC 


X (85) . 



*★★***★*★★*** 



148400 **’ 



*•**■*★■**■****11 



»***•*»*■* 



► ***★*■****■***★■* 



148600 


05 


D046D-12 


PIC 


X (9) . 


148700 


05 


PRINT-CODE-12 


PIC 


99 VALUE 


148800 


05 


D093-12-1 


PIC 


X (4) . 


148900 


05 


D094-12-1 


PIC 


X (8) . 


149000 


05 


D094-1 2-2 


PIC 


X (8) . 


149100 


05 


D094-12-3 


PIC 


X (8) . 


149200 


05 


DO 94-1 2-4 


PIC 


X (8) . 


149300 


05 


DO 94 -1 2-5 


PIC 


X ( 8 ) . 


149400 


05 


D094-1 2-6 


PIC 


X (8) . 


149500 


05 


D094-12-7 


PIC 


X (8) . 


149600 


05 


DO 94 -1 2-8 


PIC 


X (8) . 


149700 


05 


D094-12-9 


PIC 


X (8) . 


149800 


05 


DO 94-12-1 0 


PIC 


X ( 8 ) . 


149900 


05 


DO 93-1 2-2 


PIC 


X (4) . 


150000 


05 


D095-12-1 


PIC 


X (4 ) . 


150100 


05 


D095-12-2 


PIC 


X ( 4 ) . 


150200 


05 


D095-12-3 


PIC 


X { 4 ) . 


150300 


05 


D095-12-4 


PIC 


X { 4 ) . 


150400 


05 


D095-12-5 


PIC 


X (4 ) . 


150500 


05 


D095-12-6 


PIC 


X (4) . 


150600 


05 


D095-12-7 


PIC 


X (4) . 


150700 


05 


D095-12-8 


PIC 


X ( 4 ) . 


150800 


05 


D095-12-9 


PIC 


X ( 4 ) . 


150900 


05 


DO 95-1 2-1 0 


PIC 


X (4 ) . 


151000 


05 


FILLER 


PIC 


X. 



12 . 



142800****’ 

01 



********* 



********* 



OUT-REC-13. 



***14650000 
14660000 
14670000 
14680000 
14690000 
14700000 
14710000 
***14720000 
14730000 
14740000 
14750000 
14760000 
14770000 
*■**14780000 
14790000 
14800000 
***14810000 
14820000 
14830000 
14840000 
14850000 
14860000 
14870000 
14880000 
14890000 
14900000 
14910000 
14920000 
14930000 
14940000 
14950000 
14960000 
***14970000 
14980000 
1499000C 
15000000 
15010000 
15020000 
15030000 
15040000 
15050000 
15060000 
15070000 
15080000 
15090000 
15100000 
15110000 
15120000 
15130000 
15140000 
15150000 
15160000 
15170000 
15180000 
15190000 
15200000 
15210000 
15220000 
15230000 
******»**15240011 
15250012 



********* 



05 


D046D-13 


PIC 


X ( 9) . 


15260012 


05 


PRINT-CODE-13 


PIC 


99. 


15270012 


05 


A001-13 


PIC 


XXX. 


15280012 



120 





05 


A012A-13 


PIC X. 


15290012 




05 


A014F-13 


PIC X. 


15300012 




05 


K00 6-13 


PIC 9(7) . 


15310012 




05 


FILLER 


PIC X (117) . 


15320012 


* it ★ * 


if it it 


************************* 


■*★*■*■*★★**•****»■**********»***■* 


*****15330012 


151100*** * 


* it it 


****************************************************** 


*****15340000 


151200** 


ws 


-NEG-ONE IS USED TO CREATE NEGATIVE NUMBERS 


**15350000 


151300**** 


* ★ * 


****•***■*■*★•****•****★***★★★ 




*****15360000 


151400 01 


ws 


-NEG-ONE 


PIC S 9 VALUE -1. 


15370000 


151500 








15380000 


151600**** 


★ * * ' 




*****15390000 


151700** 


THESE COUNTERS ARE USED TO HOLD DOLLARS \ CENTS AND 


**15400000 


151800** 


NUMBERS \ DECIMALS FOR REDEFINING INTO. A COMPUTATION FORMAT 


**15410000 


151900**** 


* it it ' 


*•*★**★***★********•***★***★*•**★**************★******★★* 


*****15420000 


152000 01 


ws- 


-FORMAT-COUNTERS . 




15430000 


152100 


05 


HLD-B055-PRICE . 




15440000 


152200 




10 HLD-B055-DOLL 


PIC 9(6). 


15450000 


152300 




10 HLD-B055 -CENTS 


PIC 99. 


15460000 


152400 


05 


PRICE-B055-HLD REDEFINES 


HLD-B055-PRICE 


15470000 


152500 






PIC 9 ( 6) V99 . 


15480000 


152600 


05 


HLD-C008C-DEC 


PIC 999. 


15490000 


152700 


05 


DEC-C00 8C-HLD REDEFINES 


HLD-C008C-DEC 


15500000 


15280C 






PIC V999. 


15510000 


152900 


05 


HLD-B012-COMB. 




15520000 


153000 




10 HLD-B012-NUM 


PIC 9. 


15530000 


1531 0C 




10 HLD-B012-DEC 


PIC 99. 


15540000 


153200 


05 


COMB-B012-HLD REDEFINES 


HLD-BO 12 -COMB 


15550000 


153300 






PIC 9V99 . 


1556000C 


153400 


05 


HLD-B012F-COMB. 




15570000 


153500 




10 HLD-B012F-NUM 


PIC 9. 


15580000 


153600 




10 HLD-B012F-DEC 


PIC 99. 


15590000 


153700 


05 


COMB-B012F-HLD REDEFINES HLD-B01 2F-COMB 


15600000 


153800 






PIC 9V99. 


15610000 


153900 


05 


HLD-C02 3-COMB . 




15620000 


154000 




10 HLD-C02 3-NUM 


PIC 9(4). 


15630000 


154100 




10 HLD-C02 3-DEC 


PIC 99. 


15640000 


154200 


05 


COMB-C023-HLD REDEFINES 


HLD-C02 3-COMB 


15650000 


154300 






PIC 9 ( 4 ) V99 . 


15660000 


154400 


05 


HLD-C024-COMB. 




1567C000 


154500 




10 HLD-C02 4 -NUM 


PIC 9(4). 


15680000 


154600 




10 HLD-C024 -DEC 


PIC 99. 


15690000 


154700 


05 


COMB-C02 4-HLD REDEFINES 


HLD-C024-COME 


15700000 


154800 






PIC 9 (4 ) V99 . 


15710000 


154900 


05 


HLD-B01 4A-COMB . 




15720C00 


155000 




10 HLD-B01 4 A-NUM 


PIC 9. 


15730000 


155100 




10 HLD-B01 4A-DEC 


PIC 999. 


15740000 


155200 


05 


COM3-B01 4A-HLD REDEFINES HLD-B01 4A-COMB 


15750000 


155300 






PIC 9V999. 


15760000 


155400 


05 


HLD-B011A-COM3 . 




1577000C 


155500 




10 HLD-B01 1 A-NUM 


PIC 99. 


15780000 


155600 




10 HLD-B01 lA-DEC 


PIC 99. 


15790000 


155700 


05 


COMB-B0 11 A-HLD REDEFINES HLD-BOllA-COMB 


15800000 


155800 






PIC 99V99 . 


15810000 


155900 


05 


HLD-B01 IB-COME . 




15820000 


156000 




10 HLD-B01 1B-NUM 


PIC 99. 


15830000 


156100 




10 HLD-B01 1B-DEC 


PIC 9. 


15840000 


156200 


05 


COMB -B 01 1B-HLD REDEFINE, 


S HLD-BO 1 1B-COMB 


15850000 


156300 






PIC 99V9. 


15860000 


156400 


05 


HLD-B01 O-COMB . 




1587000C 


156500 




10 HLD-B01 0-NUM 


PIC 99. 


15880000 


156600 




10 HLD-B01 0-DEC 


PIC 9. 


15890000 


156700 


05 


COMB-BOl 0-HLD REDEFINES 


HLD-B 01 O-COMB 


15900000 


156800 






PIC 99V9 . 


15910000 


156900 


05 


HLD-BO 7 7-COMB . 




15920000 



121 



157000 




10 HLD-B077-NUM 


PIC 9 (5) . 


15930000 


157100 




10 HLD-BO 77-DEC 


PIC 9. 


15940000 


157200 


05 


COMB-BO 7 7-HLD REDEFINES 


HLD-BO 7 7 -COMB 


15950000 


157300 






PIC 9 (5) V9. 


15960000 


157400 


05 


HLD-B077A-COMB. 




15970000 


157500 




10 HLD-B077A-NUM 


PIC 9 (5) . 


15980000 


157600 




10 HLD-BO 77A-DEC 


PIC 9. 


15990000 


157700 


05 


COMB-BO 7 7A-HLD REDEFINES HLD-BO 7 7A- COMB 


16000000 


157800 






PIC 9 (5 ) V9 . 


16010000 


157900 


05 


HLD-BO 7 7B-COMB. 




16020000 


158000 




10 HLD-BO 7 7B-NUM 


PIC 9(5). 


16030000 


158100 




10 HLD-BO 7 7B -DEC 


PIC 9. 


16040000 


158200 


05 


COMB-BO 7 7B-HLD REDEFINES HLD-BO 77B-COMB 


16050000 


158300 






PIC 9 ( 5 ) V9 . 


16060000 


158400 


05 


HLD-BO 7 7C-C0MB . 




16070000 


158500 




10 HLD-BO 7 7C-NUM 


PIC 9 (5) . 


16080000 


158600 




10 HLD-BO 7 7C- DEC 


PIC 9. 


16090000 


158700 


05 


COMB-BO 7 7C-HLD REDEFINES HLD-BO 7 7C -COMB 


16100000 


158800 






PIC 9 (5) V9 . 


16110000 


158900 


05 


HLD-BO 7 7D-C0MB . 




16120000 


159000 




10 HLD-BO 7 7D-NUM 


PIC 9 (5) . 


16130000 


159100 




10 HLD-B077D-DEC 


PIC 9. 


16140000 


159200 


05 


COMB-B077D-HLD REDEFINES HLD-BO 77D-COMB 


16150000 


159300 






PIC 9 (5) V9 . 


16160C00 


159400 


05 


HLD-BO 7 7E -COMB . 




16170000 


159500 




10 HLD-BO 7 7E-NUM 


PIC 9 (5) . 


16180000 


159600 




10 HLD-BO 7 7E -DEC 


PIC 9. 


16190000 


159700 


05 


COMB-B077E-HLD REDEFINES 


i HLD-BO 7 7E -COMB 


16200000 


159800 






PIC 9 ( 5 ) V9 . 


16210000 


159900 


05 


HLD-BO 5 3 -PRICE . 




16220000 


1600C0 




10 HLD-BO 5 3 -DOLL 


PIC 9(6). 


16230000 


160100 




10 HLD-BO 5 3 -CENTS 


PIC 99. 


16240000 


160200 


05 


PRICE-B053-HLD REDEFINES 


i HLD-BO 5 3 -PRICE 


16250000 


160300 






PIC 9 ( 6) V99 . 


16260000 


160400 


05 


HLD-A023B-COMB. 




16270000 


160500 




10 HLD-A023B-NUM 


PIC 999. 


16280000 


160600 




10 HLD-A023B-DEC 


PIC 999. 


16290000 


160700 


05 


COMB-A023B-HLD REDEFINES HLD-A023B-COMB 


16300000 


160800 






PIC 999V999 . 


16310000 


160900 


05 


HLD-B01 9A-C0MB. 




16320000 


161000 




10 HLD-B01 9A-NUM 


PIC 999. 


16330000 


161100 




10 HLD-B01 9A-DEC 


PIC 9(4). 


16340000 


161200 


05 


COMB-BOl 9A-HLD REDEFINES HLD-B01 9A-C0MB 


16350000 


161300 






PIC 999V9 (4) . 


16360000 


161400 


05 


HLD-A01 9D-C0MB . 




16370000 


161500 




10 HLD-A01 9D-NUM 


PIC 9. 


16380000 


161600 




10 HLD-A01 9D-DEC 


PIC 9(4). 


16390000 


1 6 1 7 0 C 


05 


COMB-AOl 9D-HLD REDEFINES HLD-A01 9D-C0MB 


16400000 


161800 






PIC 9V9 (4) . 


16410000 


161900 


05 


HLD-A01 9E-C0MB . 




16420000 


1 620 0 C 




10 HLD-A01 9E-NUM 


PIC 9. 


16430000 


162100 




10 HLD-A01 9E-DEC 


PIC 9(4). 


16440000 


162200 


05 


COMB-AOl 9E-HLD REDEFINES HLD-A01 9E-C0MB 


16450000 


162300 






PIC 9V9 (4) . 


16460000 


162400 


05 


HLD-BO 2 2D-C0MB . 




16470000 


162500 




10 HLD-BC22D-NUM 


PIC 99. 


16480000 


162600 




10 HLD-BO 22 D-DEC 


PIC 9 (4) . 


16490000 


162700 


05 


COMB-BO 2 2D -HLD REDEFINES HLD-BO 22D -COMB 


16500000 


162800 






PIC 99V9 ( 4 ) . 


16510000 


162900 


05 


HLD-BO 22E -COMB . 




16520000 


163000 




10 HLD-BO 2 2E-NUM 


PIC 99. 


16530000 


163100 




10 HLD -BO 2 2E -DEC 


PIC 9(4). 


16540000 


163200 


05 


COMB-B022E-HLD REDEFINES 


; HLD-BO 2 2E -COMB 


16550000 


163300 






PIC 99V9 (4) . 


16560000 



122 



163400 


05 


HLD-B01 9C-COMB . 




16570000 


163500 




10 HLD-B01 9C-NUM 


PIC 999. 


16580000 


163600 




10 HLD-B01 9C-DEC 


PIC 999. 


16590000 


163700 


05 


COMB-BOl 9C-HLD REDEFINES HLD-B01 9C-C0MB 


16600000 


163800 






PIC 999V999 . 


16610000 


163900 


05 


HLD-B055A-PRICE. 




16620000 


164000 




10 HLD-B055A-DOLL 


PIC 9 (6) . 


16630000 


164100 




10 HLD-B055A-CENTS 


PIC 99. 


16640000 


164200 


05 


PRICE-BO 5 5 A-HLD REDEFINES HLD-B055A-PRICE 


16650000 


164300 






PIC 9 ( 6) V99 . 


16660000 


164400 


05 


HLD-F 00 7-COMB . 




16670000 


164500 




10 HLD-F007-NUM 


PIC 9. 


16680000 


164600 




10 HLD-F007-DEC 


PIC 99. 


16690000 


164700 


05 


COMB-F007-HLD REDEFINES 


HLD-FOO 7 -COMB 


16700000 


164800 






PIC 9V9 9 . 


16710000 


164900 


05 


HLD-F 009A-COMB. 




16720000 


165000 




10 HLD-FOO 9A-NUM 


PIC 9. 


16730000 


165100 




10 HLD-FOO 9A-DEC 


PIC 99. 


16740000 


165200 


05 


COMB-F009A-HLD REDEFINES HLD-FOO 9A-C0MB 


16750000 


165300 






PIC 9V99 . 


16760000 


165400 


05 


HLD-B020F-B-COMB. 




16770000 


165500 




10 HLD-B020F-B-NUM 


PIC 9. 


16780000 


165600 




10 HLD-B020F-B-DEC 


PIC 9(4) . 


16790000 


165700 


05 


COMB-B020F-B-HLD REDEFINES HLD-B020F-B-COMB 


16800000 


165800 






PIC 9V9999. 


16810000 


165900 


05 


HLD-A01 9F-B-C0MB . 




16820000 


166000 




10 HLD-A01 9F-B-NUM 


PIC 9. 


16830000 


166100 




10 HLD-A01 9F-B-DEC 


PIC 9(4) . 


16840000 


166200 


05 


COMB-AOl 9F-B-HLD REDEFINES HLD-A01 9F-B-C0MB 


16850000 


166300 






PIC 9V9999 . 


16860000 


166400 


05 


HLD-B 012B -COMB . 




16870000 


166500 




10 HLD-B 01 2B-NUM 


PIC 9. 


16880000 


166600 




10 HLD-B012B-DEC 


PIC 9. 


16890000 


166700 


05 


COMB-B012B-HLD REDEFINES HLD-B01 2B-C0MB 


16900000 


166800 






PIC 9V9 . 


16910000 


166900 


05 


HLD-B 01 2D -COMB . 




16920000 


167000 




10 HLD-B 01 2D-NUM 


PIC 9. 


16930000 


167100 




10 HLD-B012D-DEC 


PIC 9. 


16940000 


167200 


05 


COMB-BO 12D-HLD REDEFINES HLD-B 01 2D -COMB 


16950000 


167300 






PIC 9V9 . 


16960000 


167400 


05 


HLD-B012-B012C-COMB. 




16970000 


167500 




10 HLD-B012-B012C-NUM 


PIC 9. 


16980000 


167600 




10 HLD-B 012-B 01 2C-DEC 


PIC 99. 


16990000 


167700 


05 


COMB -B 01 2-B012C-HLD REDEFINES HLD-B012-B012C-COMB 


17000000 


167800 






PIC 9V9 9 . 


17010000 


167900 


05 


HLD-FOO 9-COMB . 




17020000 


168000 




10 HLD-F009-NUM 


PIC 9. 


17030000 


168100 




10 HLD-FOO 9-DEC 


PIC 99. 


17040000 


168200 


05 


COMB-FOO 9-HLD REDEFINES 


HLD-FOO 9-COMB 


17050000 


168300 






PIC 9V99. 


17060000 


168400 


05 


HLD-B012E-COMB. 




17070000 


168500 




10 HLD-B012E-NUM 


PIC 9. 


1708C000 


168600 




10 HLD-B012E-DEC 


PIC 99. 


17090000 


168700 


05 


COMB-B012E-HLD REDEFINES HLD-B01 2E-C0MB 


17100000 


168800 






PIC 9V99 . 


17110000 


168900 


05 


HLD-B01 4C-DEC 


PIC 999. 


17120000 


169000 


05 


DEC-BO 1 4C-HLD REDEFINES 


HLD-B01 4C-DEC 


17130000 


169100 






PIC V999. 


17140000 


169200 


05 


HLD-A023-1-COMB. 




17150000 


169300 




10 HLD-A023-1-NUM 


PIC 9(4) . 


17160000 


169400 




10 HLD-A023-1-DEC 


PIC 999. 


17170000 


169500 


05 


COMB-A023 -1 -HLD REDEFINES HLD-A023-1 -COMB 


17180000 


16960C 






PIC 9(4) V999 . 


17190000 


169700 


05 


HLD-A023-2-COMB . 




17200000 
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169800 




10 HLD-A023-2-NUM 


PIC 


9(4) . 


17210000 


169900 




10 HLD-A023-2-DEC 


PIC 


999. 


17220000 


170000 


05 


COMB-A023-2-HLD REDEFINES HLD-AC 23-2-COMB 


17230000 


170100 






PIC 


9 (4) V999. 


17240000 


170200 


05 


HLD -A0 2 3 -3 -COMB . 






17250000 


170300 




10 HLD-A023-3-NUM 


PIC 


9(4) . 


17260000 


170400 




10 HLD-A023-3-DEC 


PIC 


999. 


17270000 


170500 


05 


COMB-A023-3-HLD REDEFINES HLD-A023-3-COMB 


17280000 


170600 






PIC 


9 (4) V999. 


17290000 


170700 


05 


HLD-B05 9-PRICE . 






17300000 


170800 




10 HLD-B0 5 9-DOLL 


PIC 


9(7) . 


17310000 


170900 




10 HLD-B05 9-CENTS 


PIC 


99. 


17320000 


171000 


05 


PRICE-B05 9-HLD REDEFINES HLD-B05 9-PRICE 


17330000 


171100 






PIC 


9 (7) V99. 


17340000 


171200* 


******* 


******************** 


********************************* 


*****17350000 



171300 01 EOF-FLAG PIC X. 17360000 
171400** ****************************************************************17370000 
171500 17380000 
171600******************************************************************17390000 
171700 PROCEDURE DIVISION. 17400000 
171800******************************************************************17410000 



* ***************** 



* *********** 



171900 

172000*** W ***************** 

172100 MAINLINE -CONTROL-ROUTINE . 

172200 PERFORM INITIALIZATION. 

172300 PERFORM READ-AND-PROCESS UNTIL EOF-FLAG EQUAL 

172400 PERFORM CLOSE-ROUTINE. 

172500 STOP RUN. 

172600************************ 

172700 INITIALIZATION SECTION. 

172800 INITIALIZE. 

OPEN INPUT B10JX1. 

OPEN OUTPUT OF I LEI , 

OFI LE5 , 

OFILE9, 

MOVE 'N ' TO EOF-FLAG. 

MOVE SPACES TO OUT-REC-1, 

OUT-REC-5 , 

OUT-REC-9, 

OUT-REC-1 3 . 

173700 INITIALIZATION-EXIT. 

173800 EXIT. 

173900 ******************************************************* 
174000 READ-AND-PROCESS SECTION. 

74100 READ-PROCESS. 

B10JX1 AT END MOVE 'Y' TO EOF-FLAG 174300 



172900 

173000 

173100 

173200 

173300 

173400 

173500 

173600 



OFILE2, OFILE3 , OFILE4, 

OFILE6, OFILE7 , OFILE8 , 

OFILE10, OFI LEI 1 , OFILE12, OFILE13 



OUT-REC-2 , OUT-REC-3 , OUT-REC-4, 
OUT-REC- 6 , OUT-REC-7 , OUT-REC-8, 
OUT-REC-1 0, OUT-REC-1 1 , OUT-REC-12 



17420000 
17430000 
17440000 
17450000 
17460000 
17470000 
17480000 
17490000 
17500000 
17510000 
17520000 
17530000 
17540000 
17550014 
17560000 
17570000 
17580000 
17590014 
17600014 
17610000 
17620000 
►**♦***27630000 
17640000 

17174200 READ 

GO TO READ-EXIT- 



ROUTINE. 



174400 

174500 

174600** 

174700 

174800 

174900 

175000 

175100 

175200 

175300 

175400 

175500 

175600 

175700 

175800 

175900 



IF NIIN-CODE-I NOT NUMERIC 
GO TO READ-EXIT-ROUTINE 
PERFORM ENTITY-SUM-EXIT 
ELSE 

IF PRINT-CODE-I EQUAL 'D' 

PERFORM PROCESS-REC-D 
ELSE 

IF PRINT-CODE-I EQUAL ' F' 
PERFORM PROCESS-REC-F 
ELSE 

IF PRINT-CODE-I EQUAL 'H' 
PERFORM PROCESS-REC-H 
ELSE 

IF PRINT-CODE-I EQUAL ' J' 
PERFORM PROCESS-REC-J 
ELSE 



1670000 



17680000 

17690000 

17700000 

17710000 

1772C000 

17730000 

17740000 

17750000 

17760000 

17770000 

17780000 

17790000 

17800000 

17810000 

17820000 

17830000 
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176000 


IF PRINT -CODE -I EQUAL 'L' 


17840000 


176100 


PERFORM PROCESS-REC-L 


17850000 


176200 


ELSE 


17860000 


176300 


IF PRINT-CODE-I EQUAL 'N' 


17870000 


176400 PERFORM PROCESS-REC-N 


17880000 


176500 


ELSE 


17890000 


176600 


IF PRINT-CODE-I EQUAL 


17900000 


176700 


PERFORM PROCESS-REC-P 


17910000 


176800 


ELSE 


17920000 


176900 


IF PRINT-CODE-I EQUAL ' R' 


17930000 


177000 


PERFORM PROCESS-REC-R 


17940000 


177100 


ELSE 


17950000 


177200 


IF PRINT-CODE-I EQUAL 'T' 


17960000 


177300 


PERFORM PROCESS-REC-T 


17970000 


177400 


ELSE 


17980000 


177500 


IF PRINT-CODE-I EQUAL 'V' 


17990000 


177600 


PERFORM PROCESS-REC-V 


18000000 


177700 


ELSE 


18010000 


177800 


IF PRINT-CODE-I EQUAL 'Z' 


18020000 


177900 


PERFORM MULTI -MOE-CHECK. 


18030000 


178000* 


★ ★★★★★★★★★★★★★it***************************************-******** 


***18040000 


178100 


READ-EXIT-ROUTINE . 


18050000 


178200 


EXIT. 


18060000 


178300* 


★ ★★★★★★♦★★★^★★★★★★★★★♦★★♦★★»**'»************ - *'****'*'*'*'*'**'!r'*'**'* , *'*r* 


***18070000 


178400* 


ENTITY-SUM-EXIT SECTION. 


1 808000C 


178500* 


ENT-SUM-EXIT. 


18090000 


178600* 


EXIT. 


18100000 


178700* 


★ ***★**★*★★*★★★*★★*★*★★*★**★★★**★★★*★*★★★*★***★**★★★**★**★•*★**★**28110000 


178800 


PROCESS-REC-D SECTION. 


1812000C 


178900 


PROCESS-D-REC. 


18130000 


179000 


MOVE B1 0 -INPUT -REC TO WS-D-REC. 


18140000 


179100 


MOVE HDR-NIIN-D TO D046D-I. 


18150000 


179200 


MOVE 01 TO PRINT-CODE-1. 


18160000 


179300 


MOVE B04 5 TO B045-1 . 


18170000 


179400 


MOVE C01 6 TO C016-1. 


18180000 


179500 


MOVE C012 TO C012-1 . 


18190000 


179600 


MOVE B067E TO B067E-1. 


18200000 


179700 


MOVE B007 TO B007-1. 


18210000 


179800 


MOVE C005 TO C005-1 . 


18220000 


179900 


MOVE B055-DOLLARS-IN TO HLD-B0 5 5-DOLL. 


1 8230C00 


180000 


MOVE B055-CENTS-IN TO HLD-B055-CENTS . 


18240000 


18C100 


MOVE PRICE-BO 5 5 -HLD TO 3055-1. 


18250000 


180200 


MOVE C004 TO C004-1. 


18260000 


6C300 


MOVE B002B TO B002B-1. 180400 

TO 

C0C1A-1. 18280000 


MOVE C0C 


180500 


MOVE C001B TO COOlB-1. 


18290000 


180600 


MOVE C003 TO C003-1. 


18300000 


180700 


MOVE C003A TO C003A-1. 


18310000 


180800 


MOVE C042 TO C042-1. 


18320000 


180900 


MOVE D010A-D TO D010-A-D-1. 


18330000 


181000 


MOVE C028 TO C028-1. 


18340000 


181100 


MOVE D014A TO D014A-1. 


18350000 


181200 


MOVE C00 9 TO C009-1. 


18360000 


181300 


MOVE B001 TO B001-1. 


18370000 


181400 


MOVE B011A-NUM-IN TO HLD-B01 1A-NUM . 


18380000 


181500 


MOVE B01 1A-DEC-IN TO HLD-B01 1A-DEC . 


18390000 


181600 


MOVE COMB-B01 1 A-HLD TO B011A-1. 


18400000 


181700 


MOVE D025DEF-E089 TO DC25DEF-E08 9-1 . 


18410000 


181800 


MOVE C003B TO C003B-1. 


18420000 


181900 


MOVE B053-DOLLARS-IN TO HLD -B0 5 3 -DOLL . 


1843000C 


182000 


MOVE B053-CENTS-IN TO HLD-B053-CENTS . 


18440000 


182100 


MOVE PRICE-BO 5 3 -HLD TO B053-1. 


18450000 


182200 


PERFORM WRITE-REC-1 -TO-FILE-1 . 


1846000C 
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182300 


PROCESS-D-REC-EXIT. 


18470000 


182400 


EXIT. 


18480000 


182500' 


*★**★★★*★★★★★★★★★★*★★★★★★★★★★★★★★★★★★★★★★★★★★★★*★★★★★★★★★ 


*********18490000 


182600 


WRITE-REC-1 -TO-F I LE-1 SECTION. 


18500000 


182700 


WRITE-REC-1 . 


18510000 


182800 


MOVE OUT-REC-1 TO OUTPUT-REC-1. 


18520000 


182900 


WRITE OUTPUT-REC-1. 


18530000 


183000 


MOVE SPACES TO OUT-REC-1. 


18540000 


183100 


WRI TE-REC-l-EXI T . 


18550000 


183200 


EXIT. 


18560000 


183300- 


★★★★★★★♦★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★* 


★★★★*★★★★18570000 


183400 


PROCESS-REC-F SECTION. 


18580000 


183500 


PROCESS-F-REC. 


18590000 


183600 


MOVE B1 0 -INPUT -REC TO WS-F-REC . 


18600000 


183700 


MOVE HDR-NIIN-F TO D046D-2. 


18610000 


183800 


MOVE 02 TO PRINT-CODE-2. 


18620000 


183900 


IF A005 LESS THAN ZERO 


18630000 


184000 


MOVE TO A005-2-M 


18640000 


184100 


ELSE 


18650000 


184200 


MOVE SPACES TO A005-2-M. 


18660000 


184300 


MOVE A005 TO A005-2-N. 


18670000 


184400 


IF A005A LESS THAN ZERO 


18680000 


184500 


MOVE TO A005A-2-M 


18690000 


184600 


ELSE 


18700000 


184700 


MOVE SPACES TO A005A-2-M. 


18710000 


184800 


MOVE A005A TO A005A-2-N. 


18720000 


184900 


IF B0 74 LESS THAN ZERO 


18730000 


185000 


MOVE TO B074-2-M 


18740000 


185100 


ELSE 


18750000 


185200 


MOVE SPACES TO B074-2-M. 


18760000 


185300 


MOVE B074 TO B074-2-N. 


18770000 


185400 


MOVE A01 1 TO A011-2 . 


18780000 


185500 


MOVE F0 07-NUM-IN TO HLD-F007-NUM. 


18790000 


185600 


MOVE F00 7-DEC-IN TO HLD-F0 0 7-DEC . 


18800000 


185700 


MOVE COMB-F007-HLD TO F007-2. 


18810000 


185800 


MOVE DO 0 8 TO D008-2. 


18820000 


185900 


PERFORM WRITE-REC-2-TO-FILE-2 . 


18830000 


186000 


PROCESS-F-REC-EXIT. 


18840000 


186100 


EXIT. 


18850000 


186200’ 


?»*»*»★★★★★**★★»★★**★★*★★★★★*★★★★*★★*•**★★*★★★*★■■•★★**★★★** 


*★★★**★★★18860000 


186300 


WRITE-REC-2-TO-FILE-2 SECTION. 


18870000 


186400 


WRI TE-REC-2 . 


18880000 


186500 


MOVE OUT-REC-2 TO OUTPUT-REC-2 . 


188900C0 


186600 


WRITE OUTPUT-REC-2. 


18900000 


186700 


MOVE SPACES TO OUT-REC-2. 


18910000 


186800 


WRITE -REC- 2 -EX IT . 


18920000 


186900 


EXIT. 


18930000 


187000* 


:»******************************* w *******«*************** 


*********18940000 


187100 


PROCESS-REC-H SECTION. 


18950000 


187200 


PROCESS-H-REC. 


18960000 


187300 


MOVE B1 0 -INPUT -REC TO WS-H-REC. 


18970000 


187400 


MOVE HDR-NIIN-H TO D046D-3. 


18980000 


187500 


MOVE 03 TO PRINT-CODE-3. 


18990000 


187600 


MOVE B01 2-NUM-IN TO HLD-B01 2-NUM . 


19000000 


187700 


MOVE B012-DEC-IN TO HLD-B01 2-DEC . 


19010000 


187800 


MOVE COMB-B01 2-HLD TO B01 2-B01 2C-3 . 


19020000 


187900 


MOVE B012F-NUM-IN TO HLD-B01 2F-NUM . 


19030000 


188000 


MOVE B0 1 2F-DEC-IN TO HLD-B012F-DEC . 


19040000 


188100 


MOVE COMB-B012F-HLD TO B012F-3. 


19050000 


188200 


MOVE F0 0 9-NUM-IN TO HLD-F0 0 9-NUM . 


19060000 


188300 


MOVE F0 0 9-DEC-IN TO HLD-F0 0 9-DEC . 


19070000 


188400 


MOVE COMB-FO 0 9-HLD TO F009-3. 


19080000 


188500 


MOVE D01 2 TO D012-3. 


19090000 


188600 


MOVE D013C TO D013C-3. 


19100000 
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188700 

188800 

188900 

189000 

189100 

189200 

189300 

189400 

189500 

189600 

189700 

189800 

189900 

190000 

190100 

184000 

184100 

184200 

184300 

184400 

184500 

184600 

184700 

18480C 

184900 

185000 

185100 

185200 

185300 

185400 

185500 

185600 

188100 



188200 

188300 



184300 

184400 

185700 

185800 

18590C 

186000 

186100 

186200 

186300 

186400 

186500 

186600 

186700 

186800 

188100 



184300 



MOVE Dl 20 TO D120-3. 

MOVE BO 5 9 -DOLLARS -IN TO HLD-B05 9-DOLL . 

MOVE B059-CENTS-IN TO HLD-B05 9-CENTS 
MOVE PRICE-B05 9-HLD TO B059-3. 

PERFORM WRITE-REC-3-TO-FI LE-3 . 

PROCESS-H-REC-EXIT. 

EXIT. 

:****★**★★***★*★****★***★*★**★★**★★★*★*★***★******★********»*★**** 
WRITE-REC-3-TO-FILE-3 SECTION. 

WRITE-REC-3. 

MOVE OUT-REC-3 TO OUTPUT-REC-3 . 

WRITE OUTPUT-REC-3. 

MOVE SPACES TO OUT-REC-3. 

WRITE-REC-3-EXIT . 

EXIT. 

r ***************************************************************** 

PROCESS-REC-J SECTION. 

PROCESS- J-REC. 

MOVE Bl 0-INPUT-REC TO WS- J-REC. 

MOVE HDR-NIIN- J TO D046D-4. 

MOVE 04 TO PRINT-CODE-4. 

MOVE A001-1 TO A001-4-1. 

MOVE B046A-1 TO B046A-4-1. 

MOVE A012A-1 TO A012A-4-1. 

MOVE PL-PROG-OST-1 -IN TO PL-PROG-4 -1 -N . 

MOVE PL-PROG-OST-1 -MIN -IN TO PL-PROG-4 -1 -M . 

MOVE C0C3E-1 TO C003E-4-1. 

MOVE A012-1-IN TO A012-4-1-N. 

MOVE A012-1 -MINUS-IN TO A012-4-1-M. 

MOVE A021A-1-IN TO A021A-4-1-N. 

MOVE A021A-1 -MINUS-IN TO A021A-4-1-M. 

MOVE A008B-1 -IN TO A008B-4-1-N. 

MOVE A008B-1 -MINUS -IN TO A008B-4-1-M. 

PERFORM WRITE-REC-4-TO-FILE-4. 

IF A001-2 NOT EQUAL SPACES 
PERFORM MOVE-2ND-ENTRY. 

IF A001-3 NOT EQUAL SPACES 
PERFORM MOVE-3RD-ENTRY. 

PROCESS -J-REC-EXIT. 

EXIT. 

★ ********************************-***********lr**w******-****l*-*ir**** 

MOVE -2ND -ENTRY SECTION. 

MOVE- 2ND. 

MOVE HDR-NIIN-J TO D046D-4. 

MOVE 04 TO PRINT-CODE-4. 

MOVE A001-2 TO A0C1-4-1. 

MOVE BC46A-2 TO B046A-4-1. 

MOVE A012A-2 TO A012A-4-1. 

MOVE PL-PROG-OST-2-IN TO PL-PROG-4 -1 -N . 

MOVE PL-PROG-OST-2-MIN-IN TO PL-PROG-4 -1 -M. 

MOVE C003E-2 TO C003E-4-1. 

MOVE A01 2-2-IN TO A012-4-1-N. 

MOVE A01 2-2-MINUS-IN TO AC12-4-1-M. 

MOVE A021 A-2-IN TO A021A-4-1-N. 

MOVE A021A-2-MINUS-IN TO A021A-4-1-M. 

MOVE A008B-2-IN TO A008B-4-1-N. 

MOVE A008B-2 -MINUS-IN TO A008B-4-1-M. 

PERFORM WRITE-REC-4-TO-FILE-4 . 

MOVE-2ND-EXIT. 

EXIT. 

********************************************************************** 

MOVE -3RD -ENTRY SECTION. 

MOVE-3RD . 

MOVE HDR-NIIN-J TO D046D-4. 



19110000 

19120000 

19130000 

19140000 

19150000 

19160000 

19170000 

19180000 

19190000 

19200000 

19210000 

19220000 

19230000 

19240000 

19250000 

19260007 

19270007 

19280007 

19290007 

19300007 

19310007 

19320007 

19330007 

19340007 

19350007 

19360007 

19370007 

19380007 

19390007 

19400007 

19410007 

19420007 

19430C07 

19440007 

19450007 

19460007 

19470007 

19480007 

19490007 

19500007 

19510007 

19520007 

19530007 

19540007 

19550007 

19560007 

19570007 

19580007 

19590007 

19600007 

19610007 

19620007 

19630007 

19640007 

19650007 

19660007 

19670007 

19680007 

19690007 

19700007 

19710007 

19720007 

19730007 

19740007 
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184400 

186900 

187000 

187100 

187200 

187300 

187400 

187500 

187600 

187700 

187800 

187900 

188000 

188100 



188400 

195300 

195400 

195500 

195600 

195700 

195800 

195900 

196000 

196100 

196200 

196300 

196400 

196500 

196600 

196700 

196800 

196900 

197000 

197100 

197200 

19^300 

197400 

197500 

197600 

197700 

197800 

197900 

198000 

198100 

198200 

198300' 

198400 

198500 

198600 

198700 

198800 

198900 

199000 

199100- 

192300 

192400 

192500 

192600 

192700 



192800 



********* 



MOVE 04 TO PRINT-CODE-4. 

MOVE A001-3 TO A001-4-1. 

MOVE B046A-3 TO B046A-4-1. 

MOVE A012A-3 TO A012A-4-1. 

MOVE PL-PROG -OS T -3 -IN TO PL-PROG-4-1-N . 

MOVE PL-PROG-OST-3-MIN-IN TO PL-PROG- 4 -1 -M . 
MOVE C003E-3 TO C003E-4-1. 

MOVE A012-3-IN TO A012-4-1-N. 

MOVE A01 2 -3 -MINUS-IN TO A012-4-1-M. 

MOVE A021A-3-IN TO A021A-4-1-N. 

MOVE A021A-3 -MINUS -IN TO A021A-4-1-M. 

MOVE A008B-3-IN TO A008B-4-1-N. 

MOVE A0 08B-3 -MINUS-IN TO A008B-4-1-M. 
PERFORM WRITE-REC-4 -TO-FILE-4 . 

MOVE-3RD-EXIT. 

EXIT. 

t**********************************'****'*********! 
►*★★★★★*★★*★★*★★★★★★*★★**★★★★*★★★★★★★★1 
WRITE-REC-4 -TO-FILE-4 SECTION. 

WRITE-REC-4 . 

MOVE OUT-REC-4 TO OUTPUT-REC-4 . 

WRITE OUTPUT-REC-4. 

MOVE SPACES TO OUT-REC-4. 

WRITE-REC-4-EXIT. 

EXIT. 

► **************★**********************★*-* 
PROCESS-REC-L SECTION. 

PROCESS-L-REC. 

MOVE Bl 0 -INPUT -REC TO WS-L-REC. 

MOVE HDR-NIIN-L TO D046D-5. 

MOVE 05 TO PRINT-CODE-5. 

MOVE K001-L TO K001-5. 

MOVE K002-L001-L TO K002-L001-5. 

MOVE L001A-L TO L001A-5. 

MOVE L022-L TO L022-5. 

MOVE A001-FROM-L TO A001-5. 

MOVE A001-TO-L TO A001-5-2ND. 

MOVE ORIG-QTY-L TO ORIG-QTY-5. 

MOVE C003E-L TO C003E-5. 

MOVE DELY-DATE-L TO L009-5. 

MOVE L034-L-MINUS-IN TO L034-5-M. 

MOVE L034-L-IN TO L034-5-N. 

MOVE A012A-FROM-L TO A012A-5. 

MOVE A012A-TO-L TO A012A-5-2ND. 

PERFORM WRI TE-REC-5-TO-FILE-5 . 
PROCESS-L-REC-EXIT . 

EXIT. 



t******** 

(****#**< 



★ * * 
★ * * 



************ 



************ 



******** 



WRITE-REC-5 -TO-FILE-5 SECTION. 
WRITE-REC-5. 

MOVE OUT-REC-5 TO OUTPUT-REC-5 . 

WRITE OUTPUT-REC-5. 

MOVE SPACES TO OUT-REC-5. 
WRITE-REC-5-EXIT. 

EXIT. 

***************************************** 
PROCESS-REC-N SECTION. 

PROCESS-N-REC. 

MOVE Bl 0 -INPUT -REC TO WS-N-REC. 

MOVE HDR-NIIN-N TO D046D-6, D046D-13. 
MOVE 06 TO PRINT-CODE-6. 

MOVE 13 TO PRINT-CODE-13. 

MOVE PPR-A0 01-IN TO A001-13. 

MOVE PPR-K001-IN TO K001-6. 



19750007 
19760007 
19770007 
19780007 
19790007 
19800007 
19810007 
19820007 
19830007 
19840007 
19850007 
19860007 
19870007 
19880007 
19890007 
19900007 
t ***** 1 9910007 
r ***** 1 9920000 
19930000 
19940000 
19950000 
19960000 
19970000 
19980000 
19990000 
►**★**20000000 
20010000 
20020000 
20030000 
20040000 
20050C00 
20060000 
20070000 
20080000 
20090000 
20100000 
20110000 
20120000 
20130000 
20140000 
20150000 
20160000 
20170000 
20180000 
20190000 
20200000 
20210000 
c *****20220000 
20230000 
20240000 
20250000 
20260000 
20270000 
20280000 
20290000 
r *****20300000 
20310009 
20320009 
20330009 
20340009 
20350009 
20360009 
20370009 
20380009 
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192900 


MOVE PPR-KO 02-IN TO K002-6. 


20390009 


193000 


MOVE PPR-A01 2A-IN TO A012A-6, A012A-13. 


20400009 


193100 


MOVE PPR-K017-IN TO K017-6. 


20410009 


193200 


MOVE PPR-QTY-IN TO K006-6, K006-13. 


20420009 




MOVE A014F-IN TO A014F-13. 


20430009 


193300 


MOVE PPR-K01 8-IN TO K018-6. 


20440009 


193400 


MOVE PPR-K024 -IN TO K024-6. 


20450009 


193500 


PERFORM WRITE-REC-6-TO-FILE-6 . 


20460009 


193500 


PERFORM WRITE-REC-1 3-TO-FILE-13 . 


20470009 


193600 


PROCESS-N-REC-EXIT. 


20480009 


193700 


EXIT. 


20490009 


200700********************************************************** 


*****★★★20500000 


200800 


WRITE-REC-6-TO-FILE-6 SECTION. 


20510000 


200900 


WRITE-REC-6 . 


20520000 


201000 


MOVE OUT-REC-6 TO OUTPUT-REC-6 . 


20530000 


201100 


WRITE OUTPUT-REC-6. 


20540000 


201200 


MOVE SPACES TO OUT-REC-6. 


20550000 


201300 


WRITE-REC-6-EXIT . 


20560000 


201400 


EXIT. 


20570000 


201500 1 


*****»**************************************************** 


********20580000 


193900 


WRITE-REC-1 3-TO-FILE-l 3 SECTION. 


20590010 


o 

o 

o 

CT\ 
< — 1 


WRITE-REC-1 3 . 


20600010 


194100 


MOVE OUT-REC-1 3 TO OUTPUT-REC-1 3 . 


20610010 


194200 


WRITE OUTPUT-REC-1 3. 


20620010 


194300 


MOVE SPACES TO OUT-REC-13. 


20630010 


194400 


WRITE-REC-13-EXIT. 


20640010 


194500 


EXIT. 


2065001C 


1 94600’ 


********************************************************** 


********20660010 


201600 


PROCESS-REC-P SECTION. 


20670000 


201700 


PROCESS-P-REC. 


20680000 


201800 


MOVE B10-INPUT-REC TO WS-P-REC. 


20690000 


201900 


MOVE HDR-NI IN-P TO D046D-7. 


20700000 


202000 


MOVE 07 TO PRINT-CODE-7. 


20710000 


202100 


MOVE D016-1ST TO D016-7. 


20720000 


202200 


MOVE D016A-1ST TO D016A-7. 


20730000 


202300 


IF D01 6-2-1ST NOT EQUAL SPACES 


20740000 


202400 


PERFORM MOVE-2 -ENTRY . 


20750000 


202500 


IF D01 6-3-1 ST NOT EQUAL SPACES 


20760000 


202600 


PERFORM MOVE- 3 -ENTRY . 


20770000 


202700 


IF D016-4-1ST NOT EQUAL SPACES 


20780000 


202800 


PERFORM MOVE- 4 -ENTRY . 


2079000C 


202900 


IF D01 6-5-1ST NOT EQUAL SPACES 


20800000 


203000 


PERFORM MOVE-5 -ENTRY . 


20810000 


203100 


IF D016-2ND NOT EQUAL SPACES 


20820000 


203200 


PERFORM MOVE-6-ENTRY . 


20830000 


203300 


IF D01 6-2 -2ND NOT EQUAL SPACES 


20840000 


203400 


PERFORM MOVE-7-ENTRY . 


20850000 


203500 


IF D01 6-3-2ND NOT EQUAL SPACES 


20860000 


2036C0 


PERFORM MOVE- 8 -ENTRY. 


20870000 


203700 


IF D016-4-2ND NOT EQUAL SPACES 


20880000 


203800 


PERFORM MOVE-9-ENTRY. 


20890000 


203900 


IF D016-5-2ND NOT EQUAL SPACES 


20900000 


204000 


PERFORM MOVE-1 0-ENTRY. 


20910000 


204100 


PERFORM WRITE-REC-7-TO-FILE-7 . 


20920000 


204200 


IF D016-3RD NOT EQUAL SPACES 


20930000 


204300 


PERFORM MOVE-11 -ENTRY 


20940000 


204310 


ELSE 


20950000 


204320 


GO TO PROCESS-P-REC-EXIT. 


20960000 


204400 


IF D01 6-2-3RD NOT EQUAL SPACES 


20970000 


204500 


PERFORM MOVE-1 2-ENTRY . 


20980000 


204600 


IF D01 6-2-3RD NOT EQUAL SPACES 


20990000 


204700 


PERFORM MOVE-1 2-ENTRY. 


21000000 


204800 


IF D016-2-3RD NOT EQUAL SPACES 


21010000 


204900 


PERFORM MOVE-1 2-ENTRY . 


21020000 
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205000 
205100 
205110 
205120 
205130 
205140 
205150 
205160 
205200 
205210 
205220 
205300* 
205400 
205500 
205600 
205700 
205800 
205900 
206000* 
206100 
206200 
206300 
206400 
206500 
206600 
206700* 
206800 
206900 
207000 
207100 
207200 
207300 
207400* 
207500 
207600 
207700 
207800 
207900 
208 COC 
208100* 
208200 
208300 
208400 
208500 
208600 
208700 
2C8800* 
208900 
209000 
209100 
209200 
209300 
209400 
209500* 
209600 
209700 
209800 
209900 
210000 
210100 
210200 * 
210300 
210400 
210500 



IF D01 6-2 -3RD NOT EQUAL SPACES 
PERFORM MOVE- 12 -ENTRY . 

IF D01 6-3-3RD NOT EQUAL SPACES 
PERFORM MOVE-13-ENTRY . 

IF D01 6-4 -3RD NOT EQUAL SPACES 
PERFORM MOVE-1 4 -ENTRY. 

IF D01 6-5-3RD NOT EQUAL SPACES 
PERFORM MOVE-1 5 -ENTRY . 

PERFORM WRI TE-REC-7-TO-FILE-7 . 

PROCESS-P-REC-EXIT. 

EXIT. 

r************************************************************* 

MOVE -2 -ENTRY SECTION. 

MOVE-2. 

MOVE D01 6-2-lST TO D016-7-2. 

MOVE D016A-2-1ST TO D016A-7-2. 

MOVE-2-ENTRY-EXIT . 

EXIT. 

MOVE- 3 -ENTRY SECTION. 

MOVE-3. 

MOVE D01 6-3-lST TO D016-7-3. 

MOVE D016A-3-1ST TO D016A-7-3. 

MOVE-3-ENTRY-EXIT. 

EXIT. 

r******************»****************************-****-»lr***-***1r* 

MOVE- 4 -ENTRY SECTION. 

MOVE- 4. 

MOVE D01 6-4 -1ST TO D016-7-4. 

MOVE D01 6A-4-1 ST TO D016A-7-4. 

MOVE-4 -ENTRY-EXIT. 

EXIT. 

f-»*»**W**-*f*»*'jr-»***-»-»'***lr***-***»*******'*******'*-******'«r**1r1r'»'»** 

MOVE- 5 -ENTRY SECTION. 

MOVE -5. 

MOVE D01 6-5-1 ST TO D016-7-5. 

MOVE D01 6A-5-1 ST TO D016A-7-5. 

MOVE-5-ENTRY-EXIT . 

EXIT. 

MOVE- 6 -ENTRY SECTION. 

MOVE- 6. 

MOVE D0I6-2ND TO D016-7-6. 

MOVE D016A-2ND TO D016A-7-6. 

MOVE-6-ENTRY-EXIT. 

EXIT. 

•»**-r**-Jr**»***'»»w*****-r*lr*'*ir'*1r************'Jr*******'»r**'»r*1r'»r*'**W1r 

MOVE -7 -ENTRY SECTION. 

MOVE-7. 

MOVE D016-2-2ND TO D016-7-7. 

MOVE D01 6A-2-2ND TO D016A-7-7. 

MOVE-7-ENTRY-EXIT. 

EXIT. 

******************************************************************* 

MOVE -8 -ENTRY SECTION. 

MOVE- 8. 

MOVE D016-3-2ND TO D01 6-7-8. 

MOVE D01 6A-3-2ND TO D016A-7-8. 

MOVE-8-ENTRY-EXIT. 

EXIT. 

*******★*****★★★*■*■**★*■**■****★**★■******■****★■*★★*★****★*•*•★■*■*★★★ 
MOVE-9-ENTRY SECTION. 

MOVE- 9. 

MOVE D01 6-4 -2ND TO D016-7-9. 



21030000 

21040000 

21050000 

21060000 

21070000 

21080000 

21090000 

21100000 

21110000 

21120000 

21130000 

****21140000 

21150000 

21160000 

21170000 

21180000 

21190000 

21200000 

****21210000 

21220000 

21230000 

21240000 

21250000 

21260000 

21270000 

****21280000 

21290000 

21300000 

21310000 

21320000 

21330000 

21340000 

r ****2l350000 

21360000 

21370000 

21380000 

21390000 

21400000 

21410000 

r****2l420000 

21430000 

21440000 

21450000 

21460000 

21470000 

21480000 

r ****21490000 

21500000 

21510000 

21520000 

21530000 

21540000 

21550000 

****21560000 

21570000 

21580000 

21590000 

21600000 

21610000 

21620000 

****21630000 

21640000 

21650000 

21660000 
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210600 
210700 
210800 
210900 
211000 
211100 
211200 
211300 
211400 
211500 
211600 
211610 
211620 
21170C 
211800 
211900 
212000 
212010 
212020 
212030 
212040 
212050 
212100 
21 2200 
212210 
212220 
212230 
212240 
212250 
212300 
212400 
212410 
212420 
212430 
212440 
212450 
212500 
212600 
212610 
212620 
212630 
212640 
212650 
212700 
212800 
212810 
212820 
212830 
213200 
213300 
213400 
213500 
213600 
213700 
213800 
213900 
214000' 
214100 
214200 
214300 
214400 
214500 
214600 
214700 



MOVE D01 6A-4-2ND TO D016A-7-9. 
MOVE-9-ENTRY-EXIT . 

EXIT. 

•************************************ 
MOVE-1 0 -ENTRY SECTION. 

MOVE-1 0 . 

MOVE D01 6-5-2ND TO D016-7-10. 
MOVE D01 6A-5-2ND TO D016A-7-10. 
MOVE-1 O-ENTRY-EXIT . 

EXIT. 

■*★★★*★★★**★★'**★*★'***********★★**★*★* 
MOVE-11 -ENTRY SECTION. 

MOVE-11 . 

MOVE HDR-NI IN-P TO D046D-7. 

MOVE 07 TO PRINT-CODE-7. 

MOVE D016-3RD TO D016-7. 

MOVE D016A-3RD TO D016A-7. 

MOVE-1 1-ENTRY-EXIT . 

EXIT. 

************************************ 
MOVE- 12 -ENTRY SECTION. 

MOVE-12. 

MOVE D01 6-2-3RD TO D016-7-2. 

MOVE D016A-2-3RD TO D016A-7-2. 
MOVE-1 2-ENTRY-EXIT . 

EXIT. 

************************************ 
MOVE-1 3-ENTRY SECTION. 

MOVE-13. 

MOVE D01 6-3-3RD TO D016-7-3. 

MOVE DC1 6A-3-3RD TO D016A-7-3. 
MOVE- 1 3 -ENTRY-EX IT . 

EXIT. 

:»*********************************** 
MOVE-1 4 -ENTRY SECTION. 

MOVE-14 . 

MOVE D01 6-4 -3RD TO D016-7-4. 

MOVE DO 1 6A-4 -3RD TO D016A-7-4. 
MOVE-14-ENTRY-EXIT. 

EXIT. 

-********»*******»*****************»* 
MOVE- 1 5 -ENTRY SECTION. 

MOVE-15. 

MOVE D01 6-5-3RD TO D016-7-5. 

MOVE D01 6A-5-3RD TO D016A-7-5. 
MOVE-1 5 -ENTRY -EX IT . 

EXIT. 

************************************ 
************************************ 
WRITE-REC-7-TO-FILE-7 SECTION. 

WRI TE-REC-7 . 

MOVE OUT-REC-7 TO OUTPUT-REC-7 . 
WRITE OUTPUT-REC-7. 

MOVE SPACES TO OUT-REC-7. 

WRI TE-REC-7 -EX IT . 

EXIT. 

************************************ 
PROCESS-REC-R SECTION. 

PROCESS-R-REC. 

MOVE B10-INPUT-REC TO WS-R-REC. 
MOVE HDR-NIIN-R TO D046D-8. 

MOVE 08 TO PRINT-CODE-8. 

MOVE D009-1ST TO D009-8-1. 

MOVE D011-1ST TO D011-8-1. 



21670000 

21680000 

21690000 

***★★*★**★*★★*★********★****21700000 

21710000 

21720000 

21730000 

21740000 

21750000 

21760000 

****************************21770000 

21780000 

21790000 

21800000 

21810000 

21820000 

21830000 

21840000 

21850000 

****************************21860000 

21870000 
21880000 
21890000 
21900000 
21910000 
21 92C00C 

****************************21930000 

2194C000 
21 95000C 
21960000 
21970000 
21980000 
21990000 

****************************22000000 

22010000 

22020000 

22030000 

22040000 

22050000 

22060000 

****************************22070000 

22080000 

22090000 

22100000 

22110000 

22120000 

22130000 

****************************22140000 

********»******************»22150000 

22160000 

22170000 

22180000 

22190000 

22200000 

22210000 

22220000 

****************************22230000 

22240000 

22250000 

22260000 

22270000 

22280000 

22290000 

22300000 
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214800 MOVE F018-1ST TO F018-8-1. 

214900 MOVE D013-1ST TO D013-8-1. 

214910 IF D009-2-1ST NOT EQUAL SPACES 

214920 PERFORM MOVE-2-APPL. 

214930 IF D009-3-1ST NOT EQUAL SPACES 

214940 PERFORM MOVE-3 -APPL. 

214950 IF D0C9-2ND NOT EQUAL SPACES 

214960 PERFORM MOVE-4-APPL . 

214970 IF D00 9-2-2ND NOT EQUAL SPACES 

214980 PERFORM MOVE-5-APPL. 

214990 IF D009-3-2ND NOT EQUAL SPACES 

214991 PERFORM MOVE- 6 -APPL. 

214992 PERFORM WRITE-REC-8-TO-FILE-8 . 

214993 IF D009-3RD NOT EQUAL SPACES 

214994 PERFORM MOVE-7 -APPL. 

214997 IF D009-2-3RD NOT EQUAL SPACES 

214998 PERFORM MOVE -8 -APPL . 

214999 IF D009-3-3RD NOT EQUAL SPACES 

215000 PERFORM MOVE-9-APPL . 

215001 IF D009-3RD NOT EQUAL SPACES OR D009-2-3RD 

215002 NOT EQUAL SPACES OR D009-3-3RD NOT 

215003 PERFORM WRITE-REC-8-TO-FILE-8 . 



EQUAL SPACES 



22310000 
22320000 
22330000 
22340000 
22350000 
22360000 
22370000 
22380000 
22390000 
22400000 
22410000 
22420000 
22430000 
22440000 
22450000 
22460000 
22470000 
22480000 
22490000 
22500005 
22510005 
22 520000 



215004 


PROCESS-R-REC-EXIT . 


22530000 


215005 


EXIT. 


22540000 


215006’ 


■ ★★■*•**★**••****•**•***★***★*■***■*■****■**■** 


*****★★********★**★**♦★★★*****22550000 


215007 


MOVE -2 -APPL SECTION. 


22560000 


215008 


MOVE-APPL-2 . 


22570000 


215010 


MOVE D009-2-1ST TO D009-8-2. 


22580000 


215100 


MOVE D011-2-1ST TO D011-8-2. 


22590000 


215200 


MOVE F01 8-2-1 ST TO F018-8-2. 


22600000 


215300 


MOVE D013-2-1ST TO D013-8-2. 


22610000 


215310 


MOVE-2-APPL-EXIT . 


22620000 


215320 


EXIT. 


22630000 


215330’ 


:***★★★★★★★★*★★★★*★★★★★★★*★*★★★★★★*★ 


★★*★★★★★★★*★★★★*★★★★★*★★★★★★★★22640000 


215340 


MOVE -3 -APPL SECTION. 


22650000 


215350 


MOVE-APPL-3. 


22660000 


215400 


MOVE D009-3-1ST TO D009-8-3. 


22670000 


215500 


MOVE D011-3-1ST TO D011-8-3. 


22680000 


215600 


MOVE F01 8-3-lST TO F018-8-3. 


22690000 


215700 


MOVE D01 3-3-1ST TO D013-8-3. 


22700000 


215701 


MOVE -3 -APPL-EXIT . 


2271000C 


215702 


EXIT. 


22720000 


215710’ 


************************************ 


*★***★*********★★★★*********★*22730000 


215720 


MOVE -4 -APPL SECTION. 


22740000 


215730 


MOVE -APPL- 4 . 


22750000 



215800 MOVE D009-2ND TO D009-8-4. 
215900 MOVE D011-2ND TO D011-8-4. 
216000 MOVE F018-2ND TO F018-8-4. 
216100 MOVE D013-2ND TO D013-8-4. 



22760000 

22770000 

22780000 

22790000 



216110 


MOVE-4 -APPL-EXIT. 






22800000 


216120 


EXIT. 






22810000 


21 61 30 1 


*■***★**★»*★**★★*****< 


r ★ ★ ■ 


*★★★★*★★★★★★★★ 


★★★★★★★★*★★★★★★★★★★★★★★★★★★★*22820000 


216140 


MOVE-5-APPL SECTION. 






22830000 


216150 


MOVE-APPL-5 . 






22840000 


216200 


MOVE D00 9-2-2ND 


TO 


D009-8-5. 


22850000 


216300 


MOVE D011-2-2ND 


TO 


D011-8-5. 


22860000 


216400 


MOVE F01 8-2-2ND 


TO 


F018-8-5. 


22870000 


216500 


MOVE D01 3-2-2ND 


TO 


D013-8-5. 


22880000 


216510 


MOVE-5-APPL-EXIT . 






22890000 


216520 


EXIT. 






22900000 


216530’ 


»★**★★***★★★****★**** 


* ★ i 


►****★★★★★★★★★ 


★★★★★★*★★*****★★★★*★★*★*★★★★★22910000 


216540 


MOVE-6-APPL SECTION. 






22920000 


216550 


MOVE-APPL-6 . 






22930000 


216600 


MOVE D00 9-3-2ND 


TO 


D009-8-6 . 


22940000 
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216700 

216800 

216900 

216910 

216920 

216930 

216940 

216950 

217100 

217200 

217300 

217400 

217500 

217600 

217610 

217620 

217630 

217640 

217650 

217700 

217800 

217900 

218000 

218010 

218020 

218030’ 

218040 

218050 

218100 

218200 

218300 

218400 

218410 

218420 

218800’ 

218900 

219000 

219100 

219200 

219300 

219400 

219500 

219600' 

219700 

219800 

219900 

220000 

220100 

220200 

220300 

220400 

220500 

220600 

220700 

220800 

220900 

221000 

221100 

221200 

221300 

221400 

221500 

221600 

221700 



MOVE D011-3-2ND TO D011-8-6. 

MOVE F01 8-3-2ND TO F018-8-6. 

MOVE D013-3-2ND TO D013-8-6. 
MOVE-6-APPL-EXIT . 

EXIT. 

***********************★*★★★*★★*★★★ 
MOVE-7-APPL SECTION. 

MOVE-APPL-7. 

MOVE HDR-NIIN-R TO D046D-8. 

MOVE 08 TO PRINT-CODE-8. 

MOVE D009-3RD TO D009-8-1. 

MOVE D01 1 -3RD TO D011-8-1. 

MOVE F018-3RD TO F018-8-1. 

MOVE D013-3RD TO D013-8-1. 
MOVE-7-APPL-EXIT. 

EXIT. 

******★*•****★★**★*★★★**★***★★★★★★★★**★< 



*********** 



22950000 

22960000 

22970000 

22980000 

22990000 

* *23000000 

23010000 

23020000 

23030000 

23040000 

23050000 

23060000 

23070000 

23080000 

23090000 

23100000 

* *23110000 



MOVE-8-APPL SECTION. 






23120000 


MOVE -AP PL- 8 . 






23130000 


MOVE D00 9-2-3RD 


TO 


D00 9-8-2 . 


23140000 


MOVE D011-2-3RD 


TO 


D011-8-2 . 


23150000 


MOVE F018-2-3RD 


TO 


F018-8-2 


23160000 


MOVE D013-2-3RD 


TO 


D013-8-2 . 


23170000 


MOVE-8 -APPL-EXI T . 






23180000 


EXIT. 






23190000 


******************** 


• * * * 


r************************************* 


*****23200000 


MOVE-9-APPL SECTION. 






23210000 


MOVE-APPL-9 . 






23220000 


MOVE D00 9-3-3RD 


TO 


D00 9-8-3 . 


23230000 


MOVE D011-3-3RD 


TO 


D011-8-3 . 


23240000 


MOVE F01 8-3-3RD 


TO 


F018-8-3 


23250000 


MOVE D01 3-3-3RD 


TO 


D013-8-3. 


23260000 



MOVE-9-APPL-EXIT . 

EXIT. 

t********************************** 

WRITE-REC-8-TO-FILE-8 SECTION. 
WRITE-REC-8. 

MOVE OUT-REC-8 TO OUTPUT-REC-8 . 
WRITE OUTPUT-REC-8. 

MOVE SPACES TO OUT-REC-8. 
WRITE-REC-8-EXI T . 

EXIT. 

r*******************»***********ir****** 

PROCESS-REC-T SECTION. 

PROCESS-T-REC. 

MOVE B1 0 -INPUT -REC TO WS-T-REC. 
MOVE HDR-NI IN-T TO D046D-9. 

MOVE 09 TO PRINT-CODE-9. 

MOVE BB-K002-KC20-IN TO K002-K020- 
MOVE BB-K03 6-IN TO K036-9. 

MOVE BB-K02 4 -IN TO K024-9. 

MOVE BB-K022-IN TO K022-9. 

MOVE BB-K025-IN TO K025-9. 

MOVE BB-K026-IN TO K026-9. 

PERFORM WRI TE-REC-9-TO-FILE-9 . 
PROCESS-T-REC-EXIT. 

EXIT. 

t*************************************,i 

WRITE-REC-9-TO-FILE-9 SECTION. 

WRITE -REC-9. 

MOVE OUT-REC-9 TO OUTPUT-REC-9 . 
WRITE OUTPUT-REC-9. 

MOVE SPACES TO OUT-REC-9. 
WRITE-REC-9-EXIT . 



******** 



9. 



23270000 

23280000 

********23290000 

23300000 

23310000 

23320000 

23330000 

23340000 

23350000 

23360000 

********23370000 

23380000 

23390000 

23400000 

2341C000 

2342000C 

23430000 

23440000 

23450000 

23460000 

23470000 

23480000 

23490000 

23500000 

23510000 

********23520000 

23530000 

23540000 

23550000 

23560000 

23570000 

23580000 
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221800 

221900 

222000 

222100 

222200 

222300 

222400 

222500 

222600 

222700 



222600 

222900 

223000 



223100 

223200 

223300 



223500 

223600 

223700 

223800 

223900 



EXIT. 






PROCESS-REC-V SECTION. 

PROCESS-V-REC. 

MOVE B1 0 -INPUT -REC TO WS-V-REC. 

MOVE HDR-NIIN-V TO D046D-10. 

MOVE 10 TO PRINT-CODE-10. 

MOVE C035-IN-1 TO C035-B-C-1 0-1 . 

MOVE C038-IN-1 TO C038-10-1. 

MOVE D001 -IN-1 TO D001-C004C-1 0-1 . 

IF C035-IN-2 NOT EQUAL SPACES 
PERFORM MOVE-2 -REFNR . 

IF C035-IN-3 NOT EQUAL SPACES 
PERFORM MOVE -3 -REFNR. 

PERFORM WRI TE-REC-1 0-TO-FILE-l 0 . 

IF C035-IN-4 NOT EQUAL SPACES 
PERFORM MOVE-4 -REFNR. 

IF C035-IN-5 NOT EQUAL SPACES 
PERFORM MOVE-5-REFNR . 

IF C035-IN-6 NOT EQUAL SPACES 
PERFORM MOVE-6-REFNR . 

IF C035-IN-4 NOT EQUAL SPACES OR C035-IN-5 NOT EQUAL 
SPACES OR C035-IN-6 NOT EQUAL SPACES 
PERFORM WRITE-REC-1 0-TO-FILE-l 0 . 

IF C035-IN-7 NOT EQUAL SPACES 
PERFORM MOVE-7-REFNR . 

IF C035-IN-8 NOT EQUAL SPACES 
PERFORM MOVE-8 -REFNR. 

IF C035-IN-9 NOT EQUAL SPACES 
PERFORM MOVE- 9-REFNR . 

IF C035-IN-7 NOT EQUAL SPACES OR C035-IN-8 NOT EQUAL 
SPACES OR C035-IN-9 NOT EQUAL SPACES 
PERFORM WRITE-REC-1 0-TO-FILE-l 0 . 
PROCESS-V-REC-EXIT . 

EXIT. 

r********************************** 

MOVE -2 -REFNR SECTION. 

MOVE-REFNR-2 . 

MOVE C035-IN-2 TO C03 5-B-C-l 0-2 . 

MOVE C038-IN-2 TO C038-10-2. 

MOVE D001-IN-2 TO D001 -COO 4C-1 0-2 . 

MOVE-2-REFNR-EXIT . 

EXIT. 

r ******************************************* 

MOVE -3 -REFNR SECTION. 

MOVE -REFNR- 3. 

MOVE C035-IN-3 TO C035-B-C-10-3 . 

MOVE C038-IN-3 TO C038-10-3. 

MOVE D001-IN-3 TO D001 -C004C-1 0-3 . 

MOVE-3-REFNR-EXIT . 

EXIT. 

******************************************* 

MOVE- 4 -REFNR SECTION. 

MOVE-REFNR-4 . 

MOVE HDR-NIIN-V TO D046D-10. 

MOVE 10 TO PRINT-CODE-1 0. 



************* 



******** 



********** 



MOVE 


C035-IN-4 


TO 


C035-B-C-1 0-1 . 


MOVE 


C038-IN-4 


TO 


i 

o 

» 

00 

ro 

o 

U 


MOVE 


D001-IN-4 


TO 


D001-C004C-10-1 


MOVE-4 -REFNR-EXIT. 







EXIT. 

r*********************, 

MOVE-5-REFNR SECTION. 
MOVE-REFNR-5. 



**************************** 



********** 



23590000 

****23600000 

23610000 

23620000 

23630000 

23640000 

23650000 

23660000 

23670000 

23680000 

23690006 

23700006 

23710006 

23720006 

23730006 

23740006 

23750006 

23760006 

23770006 

23780006 

23790006 

23800006 

23810006 

23820006 

23830006 

23840006 

23850006 

23860006 

23870006 

23880006 

23890006 

23900006 

23910006 

23920006 

23930006 

****23940006 

23950006 

23960006 

23970000 

23980000 

23990000 

24000006 

24010006 

****24020006 

24030006 

24040006 

24050000 

24060000 

24070000 

24080006 

24090006 

****24100006 

24110006 

24120006 

24130000 

24140000 

24150000 

24160000 

24170000 

24180006 

24190006 

f***24200006 

24210006 

24220006 
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224000 

224100 

224200 



224300 

224400 

224500 



224700 

224800 

224900 

225000 

225100 



225200 

225300 

225400 



225500 

225600 

225700 



226100 

226200 

226300 

226400 

226500 

226600 

226700 

226800 

226900 

227000 

227100 

227200 

227300 

227400 

227500 

227600 

227700 

227800 

227900 

228000 

228100 

228200 

228300 

228400 

228500 



******************* 



MOVE C035-IN-5 TO C035-B-C-1 0-2 . 
MOVE C038-IN-5 TO C038-10-2. 

MOVE D001 -IN-5 TO D001 -C004C-1 0-2 . 
MOVE-5-REFNR-EXIT. 

EXIT. 

*********************************** 
MOVE-6-REFNR SECTION. 

MOVE-REFNR-6 . 

MOVE C035-IN-6 TO C035-B-C-1 0-3 . 
MOVE C038-IN-6 TO C038-10-3. 

MOVE D001-IN-6 TO D001 -C004C-1 0-3 . 
MOVE-6-REFNR-EXIT . 

EXIT. 

t******************* 

MOVE-7-REFNR SECTION. 

MOVE-REFNR-7 . 

MOVE HDR-NIIN-V TO D046D-10. 

MOVE 10 TO PRINT-CODE-1 0. 

MOVE C035-IN-7 TO C035-B-C-1 0-1 . 
MOVE C038-IN-7 TO C038-10-1. 

MOVE D001-IN-7 TO D001-C004C-1 0-1 . 
MOVE-7-REFNR-EXIT . 

EXIT. 

r************************************** 

MOVE-8 -REFNR SECTION. 

MOVE-REFNR-8 . 

MOVE C035-IN-8 TO C035-B-C-1 0-2 . 
MOVE C038-IN-8 TO C038-10-2. 

MOVE D001-IN-8 TO D001 -C004C-1 0-2 . 
MOVE-8 -REFNR-EX IT . 

EXIT. 

t********************* 

MOVE-9-REFNR SECTION. 

MOVE-REFNR- 9 . 



**************** 



********** 



************** 



******** 



*********** 



MOVE 


C035-IN- 9 


TO 


C035-B-C-1 0-3 . 


MOVE 


C038-IN-9 


TO 


C038-1 0-3 . 


MOVE 


D001 -IN-9 


TO 


D001-C004C-10-3 


MOVE - 9 -REFNR-EX I T . 







EXIT. 

*********************************** 

WRI TE-REC-1 0-TO-F I LE-1 0 SECTION . 
WRITE-REC-1 0 . 

MOVE OUT-REC-1 0 TO OUTPUT-REC- 
WRITE OUTPUT-REC-1 0 . 

MOVE SPACES TO OUT-REC-1 0. 
WRITE-REC-1 0-EXIT. 

EXIT. 

*********************************** 

MULTI -MOE -CHECK SECTION. 
CHECK-MULTI-MOE . 

IF Z-FLAG-I NOT EQUAL SPACES 
PERFORM PROCESS-REC-Z2 
ELSE 

PERFORM PROCESS-REC-Z. 
CHECK-MULTI -MOE -EXIT . 

EXIT. 

*********************************** 

PROCESS -REC-Z2 SECTION. 

PROCESS -Z2-REC . 

MOVE B10-INPUT-REC TO WS-Z2-REC 
MOVE HDR-NI IN-Z2 TO D046D-12. 
MOVE 12 TO PRINT-CODE-12. 

MOVE DO 93-IN-Z2-1 TO D093-12-1 . 
MOVE DO 94-IN-Z2-1 TO D094-12-1 . 



0 . 



************ 



******** 



24230000 
24240000 
24250000 
24260006 
24270006 

*************2^280006 
24290006 
24300006 
24310000 
24320000 
24330000 
24340006 
24350006 
*************24360006 
24370006 
24380006 
24390000 
24400000 
24410000 
24420000 
24430000 
24440006 
24450006 
*************24460006 
24470006 
24480006 
24490000 
24500000 
24510000 
24520006 
24530006 
******24540006 
24550006 
24560006 
24570000 
24580000 
24590000 
24600006 
24610006 
******24620000 
24630000 
24640000 
24650000 
24660000 
24670000 
24680000 
24690000 
*********24700000 
2471000C 
24720000 
24730000 
24740000 
24750000 
24760000 
24770000 
24780000 

***********-»********24790000 

24800000 

24810000 

24820000 

24830000 

24840000 

24850000 

24860000 



************ 
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228600 


MOVE 


DO 94-IN-Z2-2 


TO 


D094-12-2. 


24870000 


228700 


MOVE 


DO 94-IN-Z2-3 


TO 


DO 94-12-3 . 


24880000 


228800 


MOVE 


DO 94-IN-Z2-4 


TO 


DO 94-1 2-4 . 


24890000 


228900 


MOVE 


DO 94-IN-Z2-5 


TO 


D094-12-5. 


24900000 


229000 


MOVE 


DO 94-IN-Z2-6 


TO 


D094-12-6. 


24910000 


229100 


MOVE 


D094-IN-Z2-7 


TO 


D094-12-7. 


24920000 


229200 


MOVE 


DO 94-IN-Z2-8 


TO 


D094-12-8. 


24930000 


229300 


MOVE 


DO 94 -IN-Z2-9 


TO 


DO 94-1 2-9 . 


24940000 


229400 


MOVE 


D094-IN-Z2-10 TO D094-12-10. 


24950000 


229500 


MOVE 


D093-IN-Z2-2 


TO 


DO 93-1 2-2 . 


24960000 


229600 


MOVE 


D095-IN-Z2-1 


TO 


D095-12-1 . 


24970000 


229700 


MOVE 


D095-IN-Z2-2 


TO 


D095-12-2. 


24980000 


229800 


MOVE 


D095-IN-Z2-3 


TO 


D095-12-3. 


24990000 


229900 


MOVE 


DO 95-IN-Z2-4 


TO 


D095-12-4 . 


25000000 


230000 


MOVE 


DO 95-IN-Z2-5 


TO 


D095-12-5 . 


25010000 


230100 


MOVE 


DO 95-IN-Z2-6 


TO 


D095-12-6. 


25020000 


230200 


MOVE 


D095-IN-Z2-7 


TO 


D095-12-7. 


25030000 


230300 


MOVE 


DO 95-IN-Z2-8 


TO 


DO 95-12-8 . 


25040000 



230400 MOVE D095-IN-Z2-9 TO D095-12-9. 00 

230500 MOVE D095-IN-Z2-10 D095-12-10. 230600 PERFORM WRITE-REC-1 2-TO 

230700 PROCESS -Z 2 -REC-EXI T . 

25080000 



230800 

230900’ 

231000 

231100 

231200 

231300 

231400 

231500 

231600 

231700 

231800 

231900 

232000 

232100 

232200 

232300 

232400 

232500 

232600 

232700 

232800 

232900’ 



EXIT. 

>■*★****★*•*★*★* 



***★*•#***■* 



*★*•**•**•*★*•**★•***••**•*•****•★★< 



PROCESS-REC-Z SECTION. 

PROCESS-Z-REC. 

MOVE B10-INPUT-REC TO WS-Z-REC. 
MOVE HDR-NI IN-Z TO D046D-11. 

MOVE 11 TO PRINT-CODE-11. 

MOVE DO 93-IN TO D093-11 . 

MOVE DO 95-IN-l TO D095-11-1. 

MOVE D095-IN-2 TO D095-11-2. 

MOVE D095-IN-3 TO D095-11-3. 

MOVE DO 95-IN-4 TO D095-11-4. 

MOVE DO 95-IN-5 TO D095-11-5. 

MOVE DO 95-IN-6 TO D095-11-6. 

MOVE DO 95-IN-7 TO D095-11-7. 

MOVE DO 95-IN-8 TO D095-11-8. 

MOVE DO 95-IN-9 TO D095-11-9. 

MOVE DO 95-IN-l 0 TO D095-11-10. 
PERFORM WRITE-REC-ll-TO-FILE-11 . 
PROCESS-Z-REC-EXIT . 

EXIT. 



*★★•***»•» 



*★*■★*★**■*■*■» 



*■**•***■**■★•*****★*★*•*■*■* 



233000 WRITE-REC-ll-TO-FILE-11 SECTION. 

233100 WRITE-REC-11. 

233200 MOVE OUT-REC-11 TO OUTPUT-REC-1 1 . 

233300 WRITE OUTPUT-REC-1 1 . 

233400 MOVE SPACES TO OUT-REC-11. 

233500 WRITE-REC-1 1 -EXIT . 

233600 EXIT. 

233700 ***************************************************************** 



233800 WRITE-REC-1 2 -TO-F I LE-1 2 SECTION. 

233900 WRITE-REC-1 2 . 

234000 MOVE OUT-REC-1 2 TO OUTPUT-REC-1 2 . 

234100 WRITE OUTPUT-REC-12 . 

234200 MOVE SPACES TO OUT-REC-12. 

234300 WRITE-REC-1 2 -EXIT. 

234400 EXIT. 

234500***************************************************************** 
234600 CLOSE-ROUTINE SECTION. 

234700 CLOSE-FILES-ROUTINE. 

234800 CLOSE B10JX1, OFILE1, OFILE2, OFILE3, OFILE4, 

234900 OFILE5, OFILE6, OFILE7, OFILE8, OFILE9, 



25090000 

*25100000 

25110000 

25120000 

25130000 

25140000 

25150000 

25160000 

25170000 

25180000 

25190000 

25200000 

25210000 

25220000 

25230000 

25240000 

2525000C 

25260000 

25270000 

25280000 

25290000 

*25300000 

25310000 

25320000 

25330000 

25340000 

25350000 

25360000 

25370000 

*25380000 

25390000 

25400000 

25410000 

25420000 

25430000 

25440000 

25450000 

*25460000 

25470000 

25480000 

25490000 

25500000 
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235000 OFI LEI 0 , OFILE11, OFILE12, OFILE13. 

235100 CLOSE-ROUTINE-EXIT. 

235200 EXIT. 

235300 ******'*******************'************'**************************** 



25510014 

25520000 

25530000 

25540000 
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APPENDIX E 



SAMPLE NSN5B DATAFILES 



1. 0FILE1 



00051958701 

00051959901 

00052135801 

00052136001 

00052136601 

00052445501 

00052445701 

00052635501 

00052657501 

00053206401 

00054462601 

00054472901 

00054473801 

00054487301 

00055166201 

00055512301 

00055951401 

00056090201 

00056090301 

00056090401 

00056228601 

00056233901 



OOOOOE68064R EA041776, 
OOOO0E68O64R EA031698. 
00000E67185R EA000579, 
00000X67185 EA000013 
00000X67185 EA000344 
00000Y68 038 1EA001048 
OOOOOY68038 EA005415 
OOOOOE67206R1 EAO 0 0 8 8 5 
00000E67206R EA001027. 
00000G69334 EA000992, 
OOOOOY67185 EA000056, 
OOOOOY67206 EA000199 
0000 0Y 67206 EA005027, 
OOOOOY67185 EA000041, 
00O00G67185 EA000584 
00000 63259 EA000004 
OOOOOE64197R EA002643, 
OOOOOE64197R1EAO00636 
0 00 00E64 197R1EA0004 52 , 
OOOOOE64 1 97R EA001293, 
00000 64123 1 EAO 0 0 4 2 9 
00000 64208 EAO 0 0 6 8 4 , 



OOSWASH PLATE, ASSY RO 


5MTKPGAM7RE1 61 5TQH 


OARKESS 


OOSWASH PLATE ASSY , AF 


5MTKU6AM7RE1 61 5TQH 


OARKE 


X 


94FILTER, FLUID 


5 ME 


H7RH2915TQ 


OARKE 


Z 


2 1 PARTS KIT, PUMP, CURE 


5KR 


H1RM2915T 


000KE 


Z 


8 9P ARTS KIT, PUMP, OVER 


5KR 


H1RM2915T 


OOOKE 


Z 


51 GEAR ROTOR 


5MMELLBM1 RMl 6 1 5T 


000KE 


2 


62GEAR ROTOR 


5MMELLBH 1 RM1 6 1 5TQ 


OOOKE 


Z 


09MOTOR. ALTERNATING C 


5 ME UG 3 AM 7 RE 6 1 05LTT 


UOARKE 


Z 


25VALVE, FLOAT, AIRCRAF 


5ML 


H7RH2915TL 


OARKE 


X 


1 4 CHANNEL ASSEMBLY 


5 HC 


H1RD5826TL 


000CL 


X 


3 4 TRANSDUCER, MOTIONAL 


5MA 


HI RM66 95TLC 


OOOKE 




03 JET, OIL, GEARBOX 


5KR 


H1RM1615T 


OOOKE 




7 4 HOUSING AND LINER 


5KR 


H1RM1615TQ 


000KEW1 


49COCK, POPPET DRAIN 


5MC 


H1RM4820T 


OOOKE 




8 1 CONTROL PANEL ASSY 


5H3 


H1RD6220T 


OOOKE 


X 


39BUSHING, SLEEVE 


5KD 


H1RM1620T 


OOOKE 




4 3VA LVE , TRANSFER, AUTO 


5KB 


H7RH661 5TQL 


7ARKEMX 



S218 . 
MZ 1 4 . 
Z 05 . 



01CYLINDER ASSEMBLY, A 
1SCYL1NDER ASSEMBLY. A 
8 1 ACCELEROMETER, HYDRA 
OOSERVOCYL1 NDER 
OOVALVE, LINEAR, DIRECT 



5KBCVUAM7RH6615T OARKEMZ 
5 K BM N 2 AM 7RH6615T OARKEMZ 
5KB H7RH1650T OARKESS 
5H3 JRQBM1RD1 6 5 0TQU OOOCTMZ 



M 08 
M 07 
P 07 
08 
M 15 
06 
M 07 
09 
M 10 
Z 09 
Z 09 
SZ10 
Z 05 



5MC 



H 1 RD1 6 5 OTQUC OOOCTMX M 06 



0053PCMH039580 .00 
3 3 5 3 ACMH02 6 5 3 0 .00 
0 0 C 3 H VMH 000579.00 
33 64 HVBHO 0 0 015.50 
33 64 H VBH 0 0 03 97 .00 
63 5 00VMH0 0 1310.00 
5353HVMHO06240 .00 
3 310 OVMHO 0 14 5 0,00 
33 6 4 H VHH 0 0 0 8 60 . 00 
6 3C3 OVAHOO 1180. 00 
03 53 BDMHOO 0 0 71 . 00 
5053CDBH000248 .00 
5 0 5 3CDBH 005570.00 
332 5BDMH 000052 . CO 
63 2 3HDAH0 0 0 729.00 
00200DBH000005 . 50 
33 13CCBH002600 .00 
0033HVBH00062S . 00 
0 0 6 3HVBH0 0 0 4 4 5 . 00 
3 3 6 3 H C BH 001280.00 
3 0 30CVAH0 0 0429.00 
0323HCMH000684 .00 



2. 0FILE2 



00051958702 
00051959902 
00052135802 
00052136002 
00052136602 
00052445502 
00052445702 
00052635502 
00052657502 
0C053206402 
00054462602 
00C54472902 
00054473802 
00054487302 
00055166202 
00055512302 
00055951402 
0005 6090202 
00056090302 
00056090402 
00056228602 
00056233902 



0000004 

0000000 

OOOOOOC 

0000000 

0000000 

0000000 

0000000 

0000000 

0000001 

0000000 

0000003 

0000000 

0000000 

0000000 

0000000 

OOOOOOC 

0000002 

0000000 

0000000 

0000000 

0000000 

0000053 



0000000 

0000000 

oooocoo 

0000000 

0000000 

ooooooo 

0000000 

ooooooo 

ooooooo 

ooooooo 

0000052 

ooooooo 

ooooooo 

ooooooo 

ooooooo 

ooooooo 

ooooooo 

ooooooo 

ooooooo 

ooooooo 

ooooooo 

ooooooo 



00000 , 
00000 , 
00000 , 
00000 . 
00000 , 
00000 . 
00000 . 
00000 . 
00000 . 
00000 . 
00027 . 
00000 . 
00000 . 
00000 . 
00000 . 
00000 . 
00001 . 
00000 . 
00000 . 
00002 . 
00000 . 
00000 . 



1000000120 

2000000000 

0000000000 

6000000000 

3000000000 

0000000000 

6000000000 

0000000000 

1000000000 

3000000000 

1000000000 

0000000000 

1000000000 

2000000000 

3000000000 

0000000000 

9000000030 

0000000000 

0000000000 

2000000000 

0000000000 

600000014C 



. 04GB4 8RDX 
.04GB49RAX 
. 02AD56KAX 
.00 
.00 
.00 
.00 

. 10ASGAA0X 
. 0 2 AD 5 1 VAX 
. 00 
.00 
.00 
. 00 
.00 
. 00 
.00 

.22JX61AAX 
. 1 0AD1 4 VAX 
. 0 2 AD 1 4 WAX 
. 05AR1 1CAX 
.00 
.00 
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3. 0FILE3 



000519587030.320 . 4 0 0 . 9 9P AD2 2 0 0 0 34 1 0 . 0 0 
000519599030 . 3 4 0 . 4 2 0 . 9 9PAD2 2 0 0 0 2 65 0 . 0 0 
000521358034.814.890 . 9 8PAD2 2 0 00 0 4 7 1 . 0 0 

000 521360030. 000. 000.0 OP A2 0 60 000000. 00 

000521366030 . 0 0 0 . 0 0 0 . 0 0 P AZ 0 60 0 0 0 0 00 .00 

0005244550 30. 000. 000. 00 PA2 060000000. 00 

000524457030 . 0 0 0 . 0 0 0 . 0 0PA2 0 60 0 0 0 0 00 . 00 
000526355030 .430.620. 91PAD220000646. 00 
000526575030.160.240. 9 8P AD22 0 0 0 0 4 1 S . 0 0 

000532064030 . 000 . 0 0 0 . 0 0PAG2 2 0 0 0 0 0 0 0 . 00 

000544626030.000. 000 . 0 0PAZ 0 60 0 0 0 0 0 0 . 00 

000544729030.000 . 000 .00PA2 0600 00 000. 00 
000544738030 . 0 0 0 . 0 0 0 . 0 OP ADO 60 0 0 0 0 0 0 . 0 0 

000544873030.000. 000. 0 0P AZ 0 60 0 0 0 00 0 . 0 0 
0005516 62 030.000.000 . 0 0 P AGO 6 0 00 0 0 0 0 . 0 0 

000555123030 .000 . 000. 00PAZ 060000000 . 00 
000559514030 .240 .320. 78PAD220000842 . 00 

000560902030.320.000. 9 0P AD22 0 0 0 04 7 8 . 0 0 

000560903030. 600. 000. 98PAD22 000024 7 .00 
000560904030.390.470. 9 5P AD22 0 0 0 0 64 0 . 0 0 
0005 62 286030.000. 0 0 0 . 0 OP AG8D0 0 0 0 0 0 0 . 0 0 
0005 62 339030.000. 0 0 0 . 0 OP AG8D0 0 0 0 0 00 .00 

4. 0FILE4 



00051958704 ND2 


1 


2 


000000006 


AF 


3 


0 


ov 


3 


0 


OOOOOOOC4 


00051 958704NDZ 








AG 


30 


0 


0 








00051958704 ND2 








AM 


26 
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1 9 90G 


000519599083UH46DX 


1 9 90G 


000519599087 LEVREP 


0100GG 


000521358083CH4 6 AX 


2 1 0 OOG 


000S21358083CH46DM 


2 1 0 OOG 


000521358083CH46DX 


210 OOG 


000521358083CH46EX 


210 OOG 


000521358083CH46FX 


2 1 0 OOG 


0C0S213S8083HH46AX 


210 OOG 


000521358083UH46AX 


2 1 0 OOG 


000521358083UH46DM 


210 OOG 


00CS213S8C83UH46DX 


210 OOG 


0C0S21360083HHX2DX 


1100GZ 


0C0521360083SHX2DX 


1100GZ 


000521360083SHX2FX 


1100GZ 


00052 1366083HHX2DX 


1100GZ 


000S21366083SHX2DX 


1 100GZ 


000S21366C83SHX2FX 


1 100GZ 


0005244550 8 Av 8 1RVX 


llOOOZ 


0005244550 8 AP 2 3RQX 


UOOOZ 


00052445508BG28 RAX 


1 OOZ 


000524457 0 8 AJ 8 1 RVX 


1 100D2 


000S2445708AP 2 3RQX 


1100DZ 


00052445708BG28 RAX 


1100DZ 


00052635S083CH46AX 


6 4 OOG 


0005263 5 S083CH46DM 


6 4 OOG 


000S26355083CH46DX 


6 4 OOG 


000S26355083CH46EX 


6 4 OOG 


0005263S5083CH46FX 


6 4 OOG 


000S263S5083HH4 6 AX 


6 4 OOG 


000S263SS083UH46AX 


6 4 OOG 


000526355083UH46DM 


6 4 OOG 


000S263SS083UH46DX 


6 4 OOG 


000526S7S083CH4 6 AX 


2 1 0 OOG 


000S26575083CH46DM 


210 OOG 


000S26575083CH46DX 


210 OOG 


00052657S083CH46EX 


210 OOG 


000S26S7S083CH46FX 


210 OOG 


000S26S7S083HH4 6 AX 


210 OOG 


000S26575083UH46AX 


210 OOG 


000S26575083UH46DM 


210 OOG 



0005265750 8 3UH4 6DX 


21000G 


00053206408B2021 


110 OOG 


00053206408B2025 


110 OOG 


0005320640 8 L5 AGQNX 


110 OOG 


00053206408L5AGWHX 


1 1 0 OOG 


00054462608B1891 


llOOOZ 


00054462608B1B95 


noooz 


000544626083CH4 6 AX 


llOOOZ 


000544626083CH4 6 DM 


llOOOZ 


000544626083CH46DX 


llOOOZ 


000544626083CH46EX 


llOOOZ 


000544626083CH46FX 


1 5 OOZ 


000544 626083HH4 6 AX 


llOOOZ 


000544626083UH4 6 AX 


llOOOZ 


000544626083UH46DM 


llOOOZ 


000544626083UH46DX 


llOOOZ 


000544626089XRDXXX 


llOOOZ 


000544 72908GB47RAX 


1 1 0 0DZ 


0005447290 8 LI ADBLX 


1100DZ 


00054473808GB4 6 RAX 


11000D 


00054487308B189S 


21000Z 


000544873083CH4 6 AX 


210 OOZ 


000544873083CH46DM 


210 OOZ 


000544 873083CH46DX 


2 1 0 OOZ 


000544873083CH46EX 


2 1 0 OOZ 


000544873083 CH46FX 


2 5 OOZ 


000544 873083HH46AX 


2100OZ 


000544873083UH4 6 AX 


2 1 0 OOZ 


000544873083UH4 6DM 


2 1 0 OOZ 


000544873083UH46DX 


2 1 0 OOZ 


00055166208B1911 


1 1 0 OOG 


00055166208B1912 


1 1 0 OOG 


00055166208B1915 


1 1 0 OOG 


000551662083UH1EXX 


1 5 OOG 


00055512308B2011 


llOOOZ 


00055512308ST1 1EAX 


llOOOZ 


0005551230 8 3SHX2DX 


llOOOZ 


000555123083SHX2FX 


llOOOZ 


00055951408 AAAAAA 1 


1 OOF 


00055951408 L2AFTCX 


2100GD 


00056C9020 8 AAAAAA 1 


1 OOF 


000560902083HHX2DX 


1 OOG 


0005609020 8 3SHX2DX 


1 OOG 


000560903083HHX2DX 


1 5 OOG 


000560903083SHX2DX 


1 50OG 


00056090408 L2AFTCX 


21000G 


000562286083THX1LX 


1 OOG 


000562286083UHX1LX 


1 OOG 


000562286083UH1EXX 


1 10G 


0005622 86083XHH1KX 


1 OOG 


00056233908B1891 


no oog 


00056233908B1 895 


1 1 0 OOG 


000562339083CH46AX 


no oog 


000562339083CH46DM 


noooG 


000562339083CH46DX 


11000G 


000562339083CH46EM 


noooG 


000562339083CH46EX 


110 OOG 


000562339083CH46FX 


1100OG 


00056233 90 8 3HH4 6 AX 


noooG 


000562339083UH46AX 


noooG 


000562339083UH46DM 


noooG 



9. Ofile9 



0005195 

0005195 

0005195 

0005195 

0005195 

0005195 

0005195 

0005195 

0005195 

0005595 

0005595 

0005595 

0005623 

0005623 



8709N0065182350507 

8709N0065182451723 

8709N0014672581683 

8709R0911682571827 

8709R0911682571829 

8709N00244 813701 93 

8709N0024481380423 

8709N00244 81970437E 

8709N0024482360550 

1409N65889827209J6 

1409N001888134A262 

1409N0018882166858 

3909N003835084V800E 

3 90 9N 003835084V801E 



27702605 BB 
27702605BB 
17 7 02 6 0 6BB 
1AE9VZ063B 
1AE9VZ06BB 
2770261 5BB 
17702615 BB 
1770261 5BB 
17702615 BB 
1ZN3XG03BB 
1AK1U506BB 
1770U506BB 
6753QS08BB 
8753QS08BB 
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10. OFILE10 



OO051 958710RT000XREV DCC 48.49 REWK AFT SRM 
00051958710T00 0 OXBRK OUT GP INT 
0005195871020000XGB48RD 

0OO5195871OT0003XN0T I NTERCHANGABLE AFTER AFC 342 
00051958710TO 0 02X0BS OLETE AFTER INCORP AFC 342 
00051958710T0001XH46 DCN 522-03-010 
00051 95991 OUTERS 10732406 
0005195 99107727 2P 10 7R3 504-10 

0005195 991 0 TO 0 03XN0T INTERCHANG WITH SRM CONFIG 
00051959910T0000XBRK OUT GP INT 
00051 95991 020000XGB49RA 

0 0 0 519 5 99 1 OTO 0 02 XOBS OLETE AFTER INCORP AFC 342 
00051959910T0001XH46 DCN 522-03-011 
0OO5195991ORTOO OXREV DCC 48 49 REWK AFTER SRM 
00052135810IN A VY 0BSAFTAFC2 8 8 I NCORP 
0005213581089513X52-2902-001 
0005213581077272 XA02 PS 4 17-1 
0005213581 02000 0XAD56KA 
00052136010 

0005213601051 6 63XR A22 6 95 

00052136O1OTOOOOXUTE THEN XA H-2 DCN B470-21 
0005213661 OTOO 0 OXUTE THEN XAOZZ H-2 DCN B470-20 
000521 3661051663XRA22694 
0005244551 OWEURE 00524457 
00052445510 

0005244 551 0772 72X1 07D225 6-3 
0005244571 OSBYRL 07583299 
00052445710UTERE 00524455 
0005244 571 077272X10 7D22 56-2 
00052445710T00 0 OXBRK OUT GP INT 
000 5244571077272X1 07D225 6- 4 
0005244571081205X107 D2 256-2 
0005263551 OWEURE 04316881 
0005263551 OINAVY USEWITH A1RRESC ACT 
00052635510200 0 OXASGAAO 
0005263551070210X541634-2-1 
00052635510772 7 2XA0 2RS 6 0 0-7 
00052657510200 0 0XAD5 1 VA 
0005265751 07 72 72XA02PS4 24 -11 
0005265751092003X7-117745-1 

00052657510T00 0 OXALT 91 0 0 8 1 6 4 5 0 1 1 AW CHPTMSG 5-81 

0005320641097499X570-074-037-15 

000 532 064 10RTOOOX9YD6 61 5002606314 

OOOS3206410TOOOOXNARF PNCL DCN Hl-7-84/323 

0005320641 0200 OOXEA32BA 

00053206410T0001 XNACN 10054 85252 

0005446261011871P1332-3000 

0005446261081692X721865 

0005446261081692X1332-3000 

00054462610TOO 0 OXBRK OUT GP INT 

00054472910SBYRL 08347475 

00054472910 

0005447291 084955PK671751-3 
0005447381 OSBYRL 09853326 
0005447381084 95 5PK674827-7 
000544738108495 5XK 674827-5 
OOOS4473810TOO 0 OXBRK OUT GP INT 
000544873107727 2P114PS460-1 
0005448731092003X3-114314 
00054487310 96 90 6XMS 51957-14 
00055166210 S CBRD 09428208 
000 5 5 1662 1072 914 P8 0-0099-5 
00055166210 96 182P436 9- 100-23 
0005516621097499X204-075-705 
00055 16 621 02000 0XAMTAB2 
0005516621096182X4408-100-23 
0005516621097499X204-075-705-23 
0005516621097499X2041075-705-23 
000551 6621 OZO 00 OXAMUABB 
0005551231039661P611687-1 
000559514 10SBYRL 03191768 
0005595141 OSBYRL 03191770 
0005595141 OSBYRL 00559513 
00055 95 14101023 7P 18241-4 
000559514 101023 7P 1824 1-5 
0005595141010237X18241-3 
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000559514 10S0000X661 5-000559514 
000559514 10ZOO 0 OX JX61 AA 
0005609021 OWEURE 09480594 
0005609021 0RT000XREV AFC181 
0005609021 0Z0000XAD14VA 
000560 90 21 OS 000 0X1650-0010 68 510 
0005609021010237X20053-1 
00056090310 

0005 60 903 10INAVY USEBEFOREAFC 1 8 1 1 NCORP 

00056090310WEURE 09480595 

0005609031010237X20366-1 

00056090310Z0 0 00XAD1 4 WA 

000560904101023 7P 19 720 

000560904 10Z0000XAR11CA 

0005622861 OWEURE 09448170 

000 5 622 861 OSOOOOX 1650 -0091 24 122 

00056228610Z0000X003496 

0005622861092003XSGT220-1 

0005 62 339107023 6P 64 02 

0005623391019204X11615819 

00056233910Z0000XCD58JA 



11. 0FILE11 



0005213581 1 N2R4DP Y1 
00054462611N1R5MN7B 



12. OFILE12 



00053206412A5 02A5 0 1 PS 6 0 
00056228612N2R2A702XS10 
00056233912A702A702PS4H 



NALL 

F5CTFG37NATT 
F5CTFG3 7NATT 
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APPENDIX F 



LOCATION OF DEN NUMBERS IN THE NSN SNAPSHOT 



NSN Snapshot 

D04 6D 



Nov 16, 1988 



NSN: COOS + C003A + C042 +D046D 



SMIC: C003B 



Name: C004 



DR I PR : 


B001 


LRC : 


B002B 




Wear Out 




F 0 0 7 


CNS 


B007 


RIC: 


D00 8 


PLT: 


BO 1 1 A 




Survival 




F0 0 9 


Shelf 


CO 2 8 


Source : 


DO 1 2 


IMC : 


C016 




Entry DTD 




CO 12 


FGC 


C001A 


Recovery : 


D013C 








Hold DTD 




BO 4 S 


PAC 


C009 












ISC 


: D02SDEF E089 




Std Price : 


B0S3 


Net Price: 


BO S 9 














R pi Price: 


BOSS 


Unit Issue 


: COOS 




























MGR 


MULTI 


USER 


PNC 


FSCM 


Part ♦ 










MOE 


MGR_MOE 


MOE 


C03 8 


C03 S_BC 


D001_C004C 










DO 9S 


D094 


D09S-A 


These Three 


Fields Are 


Repeating, 








These Three 


Fields 


Are Repeat: 






Current 


Qtr Maint DMD 


Obs : 


AO 0 S 














Current 


Qtr OVHL DMD 


Obs : 


A00SA 














Est Qtrly DMD During 


PLT : 


BO 74 
















Total Back Orders: 


AO 1 1 














Total Awarded Due_ 


_ins : 


calcula 


ted 












Total 


UnAwarded Due 


ins : 


ca 1 cul a 


ted 









Application Data 



Application UPA PCT MC ACT Application UPA PCT MC 

DO 0 9 D01 1 F 0 1 8 D013 D009 D011 F018 D013 

These Four fields are repeating in two columns. 



PTAS Data 



RFI 

Site OnHand Due-In Due-Out PPRs SD 
AO 0 1 AO 1 2 A008B A021A A014 B04 6A 

TOTAL SUM SUM SUM SUM 



NON-RFI t 

PC CC OnHand Due-In Due-Out | PC OnHand 

AO 1 2 A C003E A012 A008B A021A I A012 A012 
SUM SUM SUM I SUM 



PUR ALL 

Due-In Due-Out PPRs 
AO 0 SB A021A A014 

SUM SUM SUM 



Due-In# 







Total - 




Document 


Document 






ID 


/ Call 


CLIN 


From 


K001 


K0 0 2_L0 0 1 


L022 


AO 0 1 


Repeating 


Fields . 







QTY QTY 

To Contracted shipped 
A001 2ND L034 A012A 



Purpose Condition EST Delivery 
Code Code Date 

C003E L009 



Back Order# 



Total BB- 



DOC 

K 0 0 2 K02C 



QTY 
K03 6 



PR J 
K02 4 



PR 

K02S 



FD 

K 0 2 2 



STATUS 
K02 6 



Planned Program Requirement# 



Total DGA- 
Total BPR- 



0 Total 101 
0 Total 301 



0 Total SO 0 

0 



DOC ID 
K001 



Document 

K002 



PC 

A012A 



SUPAD 

K017 



QTY 
K 0 06 



REQD 
K0 1 8 



PROJ 

K024 
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APPENDIX G 



PHANTOM USER LOGIN MACRO 



»****★**★★*****★★***★★★*★★•***★**★★***★**★*★★**★★*★★★★***★★★**★★****★*****★★* 

' nsn_snapshot - selection Macro to build NSN Snapshot 

' Written by Lt George Marentic Dec 1988 

***★★★★*****★★*★*★*★★*★★■**★★***★★★**★★★★■*★★**★★★★★★*★*★★*★*★*★***★★*★*★★**** 

r 

include "app_ids.h" 
include "errorcodes . h" 
include " f ield_read . h" 
include "filing. h" 
include "spreadsheet . h" 
include "windows. h" 



Command snap_l 

var ofl,of2,of3,of5,of6,of8,of9,ofl0,ofll,ofl2 

var line_count, NUN, D046D_1, D046D_2, D046D_3, D046D_5, D046D_8 
var D04 6D_6, D04 6D_9, D04 6C_1 0, D04 6D_11 , tmp, The_current_window 
var D04 6D1_1 , D046D1_2, D046D1_3, NIIN_2, D046D_12, CHECK 
#*****•**★****★■*★■*■★★★****»*■»*★******•**★******•*★****★*•*★***•*■•’**★****■»:•••***■*** 



' out_rec_l 

var D046D,B045,C016,C012,B076E,B007,C005,B055,C004,B002B 
var C001A, C001B, C003, C003A, C042, D010_A_D, C028, D014A 
var COO 9, B001, B011A, DC25DEF_E089, C003B, B053 , E08 9, ACC_T 
var B0C1_A,B001_B,B001_C,B001_D,B001_E 

»******■***■»★***★*★****★*■**★★**★***★**★★★**★★**★★★*★★★***★★★★★**★★■•■*★*★■»*** 

' out_rec_2 

var A005 , A005A, B07 4 , A01 1 , F007 , D008 

'******★**★★*★★★*★**■*************■*■*****■*★*■***★****■*★★■*★★*•*******★**•*•*■*■*** * 

' out_rec_3 

var B012_B012C, B012F,F009, DC12, D013C, D120,B059 

*******»**★★**********★*★★*■*»*■*★*★*★★*•*★*★★*★**★★»■*■*★**★★•*■*■*★★★*■**•*★**■**★★ 

' out_rec_5 

var KQ01,K002_L001,L001A,L022 ,A001 ,AC01_2ND , CRIG_QTY 
var A012A , A012A_2ND, C003E , L009, L034 , count_5 , print_5 , hold_5 
var loop_5, spot_5 

/*»★****★******************************■*******»*■**■*»■*****■***»★■**■**■**•*•***■*■* 

' out_rec_6 

var K001_6,K0C2_6, A012A_6, K017_6, K006_6, K018_6, K024_6 
var print_6, hold_6, count_6, loop_6, spot_6 

'*★★*■•■★**★*****■*****'**★■••**■*'***■*★★•*•**★★★*★**■*★*★*★■********★■»•*★★*★*'»**★*★*** 

' out_rec_8 

var D009_l , DC11_1 , FC1 8_1 , D01 3_1 

var print_8 , hold_8 , count_8 , loop_8 , spot_8 

'»W*****l»****x**W*****lr***w*wir***************-****»*********'*******Tt*-»--*'«r*** 

' out_rec_9 

var K002_K02C,K036,KC22,K025,K026,K024_9 
var print_9, hold_9, count_9, loop_9, spot_9 

f ■»»***********★*★**★****•****■«*★★****★*»•***♦***■**★★★★*★★★★★★★★★*★★*★**★*'*** 

' out_rec_10 

var C035_B_C_1 , C038_l , D001_C004C_1 
var print_10, hold_10, count_10, loop_10 
#***★★*■•■**★**■**★**•********»**★***■***************■***•*•»****★★■**•*★*■•'■*■*★*■•■***■•■ 

' out_rec_ll 

var D093,D095_1,D095_2,D095_3, D095_4 , D095_5, D095_6, D095_7, D095_8 
var D095_9, D095_10 

var print_ll , hold_ll , count_ll , loop_ll 

************************************************************************** 

' out_rec_12 

var D093_12, DC94_1, DC94_2, D094 3, D094 4, D094_5, D094_6, D094_7 
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var D094_8, D094_9, D094_10 

var DO 951 2_1 , DO 951 2_2 , DO 951 2_3 , D0951 2_4 , DO 951 2_5 , DO 951 2 
var D09512_7, D09512_8, D09512_9, D09512_10 



var print_12, hold_12, count_12, loop_12 



6 



'* Open each file so the data can be read from it. 



open : 

open_f ile ( n info/ofilel.txt n , "r") 
open_f ile ( n info/of ile2 . txt " , "r" ) 
open_f ile ( M info/ofile3.txt n , n r n ) 
open_f ile ("info/ofileS.txt", "r” ) 
open_file (" info/of ile6.txt", n r") 
open_f ile ("info/ofile8.txt", n r") 
open_f ile ("info/ofile9.txt" , "r") 
open_f ile ("info/ofilelO.txt", "r") 
open_f i le ("info/ofilell.txt" , "r") 
open_f ile ( ,, info/ofilel2.txt n , n r") 

>****»******•**★*******★★★***★****★**★★★★***★★***★★*★**★****★★★*★★★★***** 

'* Initial opening & reading of the file to determine the NUN for the 1st line. 



of5 = read_file ( "inf o/of i le5 . txt " ) 
D046D_5 = substr (of 5, 1 , 9) 
hold_5 = D04 6D_5 

of6 = reao_file ("info/ofile6.txt ") 
D046D_6 = substr (of 6, 1, 9) 
hold_6 = D04 6D_6 

of8 = read_fi le ( "inf o/of i le8 . txt " ) 
D046D_8 = subst r (of 8 , 1 , 9) 
hold_8 = D046D_8 

of9 = read_file ("info/of ile9. txt") 
D046D_9 = substr (of 9, 1, 9) 
hold_9 = D04 6D_9 

oflO = read_file ("inf o/of ilelO . txt") 
D046D_10 = substr (oflO, 1 , 9) 
hold_l 0 = D046D_10 

ofll = read_f ile ("info/of ilell . txt " ) 
DO 4 6D_1 1 = substr (ofll ,1,9) 
hold_l 1 = D046D_11 

ofl2 = read_f ile (" info/of i lei 2 . txt " ) 
D04 6D_1 2 - subst r (of 12 , 1,9) 
hold_12 = D046D_12 
line count = 0 



pull : 

line count = line count 



1 



* START PULLING DATA FROM OUT-REC-1 

* READ THE FIRST 9 CHARACTERS OF THE LINE... CALL THEM "NUN" THIS WILL BE 

* THE VALUE THAT WILL BE CHECKED IN EACH OUT_REC PULL. 

* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 



************W*********'************W*************'»**lr**«-***W*******WW'r«*** 



ofl = read_file ( "inf o/of ilel . txt") 

D046D = subst r (of 1 , 1 , 9) 

NUN = D046D 

if D046D = "000000000" then goto finish 
D046D1_1 = substr (of 1 , 1 , 2 ) 

D04 6D1_2 = substr (ofl, 3, 3) 

D046D1_3 = substr (ofl, 6, 4) 

NIIN_2 = D0 4 6D1_1 + + + + D04 6D1_2 + + "-" + + D04 6D1_3 

B045 = subst r (of 1 , 12, 5 ) 

C016 = substr (ofl, 17, 1) 

C012 = subst r (of 1 , 1 8 , 5 ) 

B076E = substr (ofl, 23,1) 

B007 = subst r (of 1 , 24 , 1 ) 
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C005 = substr (ofl , 25 , 2 ) 

B055 - substr (ofl , 27, 9) 

C004 = substr (ofl , 36, 22) 

B002B = substr (ofl , 58, 3) 

C001A = subst r (of 1 , €1 , 4 ) 

C001B = subst r (of 1 , 65 , 1 ) 

C003 = substr (of 1 , 66, 2) 

C003A = subst r (of 1 , €8 , 1 ) 

CO 42 = substr (of 1 , 69, 4 ) 

D010_A_D - substr (ofl , 73, 5) 

C028 = substr (ofl, 78, 1) 

D014A = subst r (ofl , 79, 2) 

COO 9 = subst r (ofl ,81,2) 

substr (ofl , 83, 1 ) 
substr (ofl, 84, 1) 
substr (ofl ,85,1) 
substr (ofl ,86,1) 
substr (of 1 , 87 , 1 ) 

B011A = substr (of 1 , 88 , 5 ) 

D025DEF_E08 9 = substr (ofl , 93, 4 ) 

E089 = substr (ofl , 96, 1 ) 

C003B = substr (of 1 , 97, 2) 

B053 = substr (ofl, 99, 9) 

****★****■******★**★********★**★*****■*****★*****★★★*1 
START PULLING DATA FROM OUT-REC-2 

HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 



B001_A 
B001_B 
B001_C 
B001_D 
B001 E 



********* 



********** 



********* 



***************** 



**************** 



start_2 : 

if D046D_2 = NUN goto out_rec_3 

if D046D_2 = "000000000" goto out_rec_3 
of2 = read file ("inf o/ofile2 . txt") 



DO 4 6D_2 = substr (of2, 1, 9) 
if D046D_2 = "" goto out_rec_3 
pull_2: 



A005 = subst r (of2, 12, 8 ) 
A0C5A = substr (of2, 20, 8) 
B074 = substr (of2, 28, 8) 



A01 1 = substr (of2, 36, 8) 

F00 7 = substr (of2, 44, 4) 

D00 8 = substr (of2, 48,10) 
if D046D_2 = NUN goto out_rec_3 

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
'% IF NOT = NUN {Set values pulled items (X D046D_2) to null} 
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



A005=A005A-B074=A01 1=F007=D008=" " 



goto out_rec_3 

******************************************************************** 

' * START PULLING DATA FROM OUT-REC-3 

' * HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 

/***********★*****************************************★****★★******* 



out_rec_3 : 

if D04 6D_3 = NUN goto out_rec_5 

if D046D_3 = "000000000" goto out_rec_5 
of3 = read_file ( "in f o/of i le3 . txt") 



D046D_3 = substr (of 3 , 1 , 9) 
if D046D_3 = "" goto out_rec_5 
pull_3 : 

B01 2_B01 2C = substr (of3, 12, 4) 
B012F = substr (of3, 16, 4) 

F009 = substr (of3 , 20 , 4 ) 

D012 = substr (of3, 24 , 2) 
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D013C = substr (of 3, 26, 1 ) 

D120 * substr (of3, 27, 2 ) 

B059 = substr (of 3, 29, 10) 
if D046D_3 = NUN goto out_rec_5 

'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
'% IF NOT = NUN (Set values pulled items (X D046D__3) to null) 
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

B01 2_B012C=B01 2F=F0C 9=D012=D01 3C=D120=B05 9 = " " 
goto out_rec_5 

r ********************************************************************* 

' * START PULLING DATA FROM OUT-REC-5 

'* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 

• ************************************************* * * ****************** 

out_rec_5 : 

count_5 = 1 

if DC46D_5 = NI IN goto pull__5 
if D046D_5 <> NI IN goto out_rec_6 

next_l ine_5 : 

of5 = read_f ile ( "inf o/of ile5 . txt " ) 
count_5 = count_5 + 1 
D046D_5= substr (of 5, 1 , 9) 
if D046D_5 <> NI IN goto out_rec_6 
pul 1_5 : 

K001 [count_5 ] = substr (of5, 12, 3) 

K002_L001 [count_5 ] = subst r (of 5 , 1 5 , 1 5 ) 

L001A [count_5] = substr (of5, 30, 4) 

L022 [count_5] = substr (of5, 34, 6) 

A001 [ count_5 ] = substr (of5, 40, 3) 

A001_2ND [count_5 ] = substr (of 5, 43, 3) 

ORIG_QTY [count_5] = substr (of5, 46, 7) 

CC03E [count_5 ] = substr (of5, 53, 1 ) 

L009 [count_5 ] = subst r (of 5 , 54 , 5 ) 

L034 [count_5] = substr (of5, 59, 7) 

AC12A [ count_5 ] = substr (of 5, 66, 1 ) 

A012A_2ND [count_5 ] = subst r (of 5 , 67 , 1 ) 
hold_5 = D04 6D_5 
goto next_line_5 

'*x****************************************************************** 

'* START PULLING DATA FROM OUT-REC-6 

'* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
#*******************,,**»**,**,***,**,***»*******„ ***********„*»**»** 
out_rec_6: 

count _6 = 1 

if D04 6D_6 = NUN goto pull_6 
if D046D_6 <> NUN goto out_rec_8 



file ("info/ofile6.txt") 
count_6 + 1 
substr (of 6, 1 , 9) 

<> NUN goto out_rec_8 



next_l ine_6 : 

of6 = read 
count_6 = 

DC 4 6D_6 = 
if DC 4 6D_6 
pul 1_6 : 

K001_6 [count_6] 
K002_6 [count_6] 
A012A_6 [count_6] 
K017_6 [count_6] 
K006_6 [count_6] 
K018_6 [count_6] 
K024_6[count_6] 
hold_6 = D04 6D_6 
goto next_line_6 



= substr (of 6, 12,3) 

= substr (of6, 15, 14) 
= substr (of 6, 29,1) 
= substr (of 6, 30, 6) 

= substr (of 6, 36,7) 

= substr (of 6, 43, 5) 

= substr (of 6, 48, 3) 



'*********★***************************„ 



' * START PULLING DATA FROM OUT-REC-8 



it*******************-************** 
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'* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
'***********★*★*★*******★********★*****★★****★★*★★************************»**** 

out_rec_8 : 

count_8 = 1 

if D046D_8 = NUN goto pull_8 
if D046D_8 <> NI IN goto out_rec_9 



next line 8: 



of8 = read_file ("info/ofile8 . txt ") 
count_8 = count_8 + 1 
D046D_8 = substr (of 8 , 1 , 9) 
if D046D_8 <> NUN goto out_rec_9 
pull_8 : 



D009_l [ count_8 ] 
D011_l [count_8] 
F01 8_1 [ count_8 ] 
D013_l [ count_8 ] 
hold 8 = D046D 8 



= substr (of 8, 12, 10) 
= substr (of 8, 22, 6) 

= substr (of 8 , 28 , 3 ) 

= substr (of 8, 31, 2) 



goto next_line_8 



t **★★***★★★*******★****★★★***★**★*★*★★**★*★*★****★**★★*★★*★** 



' * START PULLING DATA FROM OUT-REC-9 

'* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
»★★***★★*★★★*★★**★*★★******★**★★*■**■*•**■***★★★■********★**★*★★** 



out_rec_9 : 

count_9 = 1 

if D046D_9 = NUN goto pull_9 
if D046D_9 <> NUN goto out_rec_10 






next_line_9: 

of9 = read_file ( "info/of ile9 . txt" ) 
count_9 = count_9 + 1 
D046D_9 = substr <of9, 1, 9) 
if D046D_9 <> NUN goto out_rec_10 
pull_9: 



K002 K020[count 9] = substr (of 9, 12 , 15 ) 



K03 6 [ count_9j = 
K024_9 [count_9] 
K022 [ count_9) = 
K025 [count_9] = 
K026 [count_9] = 
h o 1 d_ 9 = D04 6D_9 
goto next_line_9 



substr (of 9, 27 , 5 ) 

= substr (of9, 32, 3) 
substr (of 9, 35, 2) 
substr (of 9, 37 , 2) 
substr (of 9, 3 9, 2) 



»■****★»■*★**»■*■*■*■*******■****■********■***■****•»: 



****•*★**★•*★★*★•*★ 



' * START PULLING DATA FROM OUT-REC-10 

' * HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 

f***************************»****»************************************* 



out_rec_l 0 : 

count_10 = 1 

if D046D_10 = NUN goto pull_10 
if D046D_10 <> NUN goto out_rec_ll 



next_l ine_l 0 : 

oflO = read_file ("info/ofilelO. txt") 
count_10 = count_10 + 1 
D046D_10 = subst r (of 1 0, 1 , 9) 
if D046D_10 <> NUN goto out_rec_ll 
pull_10 : 

C035_B_C_1 [countJLO] = substr (oflO, 12, 5) 
C038_l [ count_l 0 ] = substr (of 1 0, 17, 1 ) 

D001_C004C_1 [count_10] = substr (oflO, 18, 32) 



C035_B_C_2 [ count_l 0] = substr (oflO, 50, 5) 

C038_2 [count_10] = substr (oflO, 55, 1) 
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D001_C004C_2 [count_lO] = substr (oflO, 56, 32) 
C035_B_C_3 [ count_l 0] = substr (of 1 0 , 8 8 , 5 ) 

C038_3 [ count_l 0 ] = substr (of 10, 93, 1 ) 

D001_C004C_3 [ count_l 0] = substr (oflO, 94 , 32) 



hold_l 0 = D04 6D_1 0 
goto next_line_10 

»*******************************»********************************************** 
'* START PULLING DATA FROM OUT-REC-ll 

'* HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 

/★★★★A************************************************************************* 

out_rec__ll : 

count_ll = 1 

if D046D_11 = NUN goto pull_ll 
if D04 6D_11 <> NUN goto out_rec_12 



next line 11: 



ofll = read_file ( n info/of ilell .txt") 
count_ll = count_ll + 1 
D046D_11 = substr (of 11 , 1 , 9) 
if D04 6D_1 1 <> NUN goto out_rec_12 
pul 1_1 1 : 

D093 [count_ll ] = substr (of 1 1 , 12, 4 ) 



D095_l [count_ll] 
D095_2 [count_ll ] 
DO 95_3 [ count_l 1 ] 
D095_4 [count_ll] 
D095_5 [count_ll ] 
D095_6 [count_ll ] 
DC 95_7 [ count_l 1 ] 
D095_8 [count_ll] 
D095_9 [count_ll ] 
D095_10 [count_ll 
hold 11 = D046D 11 



= substr (of 11 , 1 6, 4 ) 

= substr (of 11 , 20, 4 ) 

= substr (of 1 1 , 24 , 4 ) 

= substr (of 1 1 , 28 , 4 ) 

= substr (ofll, 32, 4) 

- substr (ofll, 36, 4) 

= substr (ofll, 40, 4) 

= substr (of 11 , 4 4 , 4 ) 

- substr (of 11 , 48,4) 

= substr (ofll, 52, 4) 



goto next_line_ll 

************************************************* 



****************** 



'* START PULLING DATA FROM OUT-REC-12 
' * HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
******************************************************************** 



out_rec_12 : 

count_12 - 1 

if D046D_12 = NUN goto pull_12 
if D04 6D_12 <> NUN goto out_rec_eno 



******** 



next_line_12: 

of!2 = read_f ile ( "inf o/of i lei 2 . txt”) 



count_12 = count_12 + 1 
D046D_12 = substr (ofl2, 1, 9) 
if DC46D_12 <> NUN goto out_rec_end 
pul 1_1 2 : 



D093_12 [count_12] 
D094_l [count_12] = 
D094_2 [count_12] = 
D094_3 [count_12] = 
D094_4 [count_12] = 
D094_5 [count_12] = 
D094_6[count_12] = 
D094_7 [count_12] = 
D094_8 [count_12] = 
D094_9[count_12] = 
D094_l 0 [count_12] 
DO 95l2_l [ count_l 2 ] 
D09512_2 [count_12] 
DO 951 2_3 [ count 12] 



: substr (ofl2, 12, 4) 
substr (of 12, 1 6, 8 ) 
substr (of 12, 24,8) 
substr (of 12, 32, 8) 
substr (of 12, 40,8) 
substr (of 12, 48,8) 
substr (of 12, 56, 8 ) 
substr (of 12, 64,8) 
substr (of 12, 72,8) 
substr (ofl2, 80,8) 
substr (of 12, 88,8) 

= substr (of 12, 96, 4 ) 

= substr (ofl2, 100, 4 ) 
= substr (of!2, 104 , 4 ) 



153 



D09512_4 [count_12] 
D09512_5 [count_12 ] 
DO 951 2_6 [ count_12 ] 
D09512_7 [count_12] 
D09512_8[count_12] 
D09512_9[count_12] 
D09512_10[count_l2] 
hold_12 = D04 6D_1 2 

goto next_line_12 



= substr {of 1 2, 1 08 , 4 ) 

= substr (of 12, 112, 4 ) 

= substr(ofl2, 116, 4) 

= substr {ofl2, 120, 4 ) 

= substr (ofl2, 124, 4) 

= substr (ofl2, 128, 4 ) 

= substr (of 12, 132, 4 ) 



'line count = line count + 1 



out_rec_end : 

* *★★***★***★**********************************************************★'** 



'* Make sure that the Main Menu is the current window. 

'A*********************************************************************** 



'on error goto data_pull 

'check = f ind_DOC (NIIN++" ss"++" l n ,0) 

'goto pull 
da t a_pul 1 : 

Interrupt_key 
type ("M" ) 

Execute_key 
Escape_key (5) 

Back_return_key (2) 

'★**********»*******★***********★*****★***■*■****■*■*****★***★★********★***** 
'* Open the Spreadsheet. 

'* 1. If the spreadsheet already exists the old data is removed. 

'* 2. If the spreadsheet does not exists it is created. 

* *W*****************W****W*********W*************w************«**W******* 

open_SS : 

menu_type { "e", "Main menu option: ") 
return_key 

menu_type {NIIN+ + ,, ss n + +" l","Name: " ) 
return_key (1 ) 

Wait_whi le_busy () 

tmp = CURRENT_WINDOW_NUM_() 

The_current_window = WINDOW_INFO (tmp) 

if The_current_window [WINDEX#APP_TYPE_] <> APP#MAIN_ goto Start_ss 
return_key menu_type ( "thesi s" , "Drawer : ") 
return_key 

menu_type ( "data", "Folder : ") 
return_key (2) 

menu_type ("s" , "Pick a document type: ") 
return_key 

menu_type ("snap ss 1", "Style guide/model document: ") 

return_key 

execute_key 

wai t_while_busy () 

Start_ss : 

' make sure the spreadsheet is purged of old data 
purge 

' move cursor to A1 
home_l ine_key 
return_key 
Wai t_wh i 1 e_bu sy { ) 
menu_type ("r", "Pick an option: " ) 
return_key 

menu_type ( "al ", "Range or cell: ") 
return_key 

write : 

'* Start writing data to view 1 
» ************************************************************ 
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return_key 

type { " ' "++C003++C003A++" " + + C042 + + M -"-r + NIIN_2) 
return_key (5) 
type (C003B) 
return_key 
home_l i ne^key 
return_key 

menu_type ( "r " , "Pick an option: ") 
return_key 

menu_type ( "b3" , "Range or cell: ") 
return_key 
type {C004 ) 

down_arrow_key down_arrow_key 



' ##P laces 


an 


if the 


DRIPR Char space is blank 


if B001_A 


<> " 


" then 


goto 


DRIPR1 


B001_A = 


n ii 








DRIPR1: 










if BOOl^B 


<> " 


" then 


goto 


DRIPR2 


B001_B = 


n it 








DRIPR2: 










if B001_C 


<> " 


" then 


goto 


DRIPR3 


B0C1_C = 


" " 








DRIPR3: 










if B001_D 


<> " 


" then 


goto 


DRIPR4 


B0C1_D = 


n ii 








DRIPR4 : 










if BO 01_E 


<> " 


" then 


goto 


DRIPR5 


BC 0 1 E — 


■i ii 









DRIPR5: 

B001 = B001_A++B001_B++B0C1_C++B001_D-^B001_E 

type(BOOl) Down_arrow_key 
type(D008) Down_ar row_key 
type(D012) Down_arrow_key 
type(D013C) Down_arrow_key {2) 
type(B053) Down_ar row_key 
type{B055) return_key (2) 

Type {C005 ) up_arrow_key 
type{B059) up_arrow_key (3) 
type{C016) up_arrow_key 
type(BCHA) up_arrow_key 
type (B002B) return_key (3) 
type(F007) Down_arrow_key 
type(F009) Down_arrow_key 
type(C012) Down_arrow_key 
type{B045) Down_arrow_key 

type (D025DEF_E08 9) return_key (2) up_arrow_key 
type (C0C9 ) up_arrow_key 
type(COOlA) up_arrow_key 
type{C028) up_arrow_key 

type{B007) up_arrow_key (2) lef t_arrow_key 
#*********★*************•■■******»*★*****■******»*★»*★* 

'* Write the Acquisition advice code 

t *W********************'********************* + *-****** 

if EO 8 9 = "T" then 

ACC_T = "CONDEMNED" else goto next_l 
goto print 
next_l : 

if EO 8 9 = "V" then 

ACC_T = "TERMINAL ITEM" else goto next_2 
goto print 
next_2 : 

if E08 9 = "Y" then 
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ACC_T * "TERMINAL ITEM" else goto next_3 
goto print 
next_3 : 

ACC_T = "" 

print : 

type(ACC_T) return_key 



home_l i ne_key 
return_key 

menu_type ("r", "Pick an option: ") 
return_key 

menu_type ( " al 4 " , "Range or cell: ") 
return_key 
wri te_l 0 : 
loop_l 0 = 1 

if hold_10 <> NUN goto after_10 
wri te_l 0_A : 

type ("*" ++C038_l [loop_10] ) return_key type ( " ' " + + C035_B_C_1 [ 1 oop_l 0 ] ) return_key 
type ("' "++D001_C004C_1 [loop_10] ) 

return_key goto_key goto_key lef t_arrow_key down_arrow_key 

' type ( " A " + + C038_2 [loop_l 0] ) return_key type (" ' " + + C035_B_C_2 [loop_10] ) 

' return_key type ( " ' "44D001_C004C_2 [loop_10] ) 

' return_key goto_key goto_key lef t_arrow_key down_arrow_key 
' type {" A "4+c038_3 [loop_10] ) return_key type ("' "44C035_B_C_3 [loop_10] ) 

' return_key type (" ' "++D0 01_C0 04C_3 [loop_10] ) 

' return_key goto_key goto_key lef t_arrow_key down_arrow_key 

loop_10 = loop_10 4 1 
if loop_10 < count_10 goto write_10_A 
after_l 0 : 
home_l i ne_key 
return_key 

menu_type ("r", "Pick an option: ") 
return_key 

menu_type ( "gl 4 " , "Range or cell: ") 
return_key 
wri te_ll : 

1 o op 1 1 = 1 

if hold_ll <> NUN goto after_ll 
type (D093 [loop_ll ] ) return_key (2) 
wri te_ll_A: 

type (DO 95_1 [ 1 oop_l 1 ] ) Down_arrow_key 
type (D095_2 [loop_ll ] ) Down_arrow_key 
type (D095_3 [loop_ll ] ) Down_arrow_key 
type (D095_4 [loop_ll ] ) Down_ar row_key 
type (DO 95_5 [loop_ll ] ) Down_arrow_key 
type (D095_6 [loop_ll] ) Down_arrow_key 
type (DO 95_7 [ loop_l 1 ] ) Down_arrow_key 
type (DO 95_8 [ loop_l 1 ] ) Down_arrow_key 
type (DO 95_9 [ 1 oop_l 1 ] ) Down_arrow_key 
type (DO 95_1 0 [ loop_ll ] ) Down_arrow_key 
loop_ll = loop_ll ■+ 1 

if loop_ll < count_ll goto write_ll_A 
after_ll : 
write_12 : 

1 ocp_l 2 = 1 

if hold_12 <> NUN goto after_12 
type (D093 [loop_ll ] ) return_key 
wri te_12_A: 

type (D094_l [Loop_12] ) Down_arrow_key 
type (D094_2 [Loop_12] ) Down_arrow_key 
type (D094_3 [Loop_12] ) Down_arrow_key 
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type (DC94_4 [Loop_12] ) Down_arr ow_key 
type (DO 94_5 [ Loop_l2 ] ) Down_arrow_key 
type (DO 94_6 [Loop_12] ) Down_ar row_key 
type (DC94_8 [Loop_12] ) Down_arrow_key 
type (D094_9 [Loop_12 ] ) Down_arrow_key 
type (D094_10 [Loop_12] ) Down_arrow_key 
home_line_key 
return_key 

menu_type ( "r" , "Pick an option: ”) 
return_key 

menu_type ( " II 4 " , "Range or cell: " 
return_key 

type (DO 95_1 [ loop_12 ] ) Dovrn_ar row_key 
type (D095_2 [ loop_12 ] ) Down_arrow_key 
type (D095_3 [loop_l2] ) Down_arrow_key 
type (D095_4 [ loop_12] ) Down_ar row_key 
type (D095_5 [loop_12] ) Down_ar r ow_key 
type (D095_6 [ loop_12] ) Down_arrow_key 
type (DO 95_7 [ loop_12 ] ) Down_arrow_key 
type (DO 95_8 [ loop_12] ) Down_ar r ow_key 
type (D095_9 [ loop_l2 ] ) Down_ar row_key 
type (D095_10 [loop_12] ) Down_arrow_key 
loop_12 = loop_12 + 1 
if loop_12 < count_12 goto write_12_A 
after_l 2 : 

***•*•*•***■**★■**********•**■******■******'**■ 
'* Start writing data to view 2 

home_l ine_key 
return_key 

menu_type ( "r " , "Pick an option: ") 
return_key 

menu_type ( "nl ", "Range or cell: ") 
return_key 

type(A005) Down_ar row_key 
type(A005A) Down_arrow_key 
Type (3074) Down_ar row_key 
type(AOll) down_arrow_key 

'■****ir****ir**1t*irT«-**iir-********'w**iriririr*ir 



'* Start writing data to view 3 



home_iine_key 

return_key 

menu_type ( "r " , "Pi ck an option: ") 
return_key 

menu_type ( "p2" , "Range or cell: ") 
return_key 
write 8: 



1 oop_8 = 1 
spot_8 = 2 

' * Start out_rec_8 printing 
if hold_8 <> NUN goto after_8 
write_8_A : 
spot_8 = spot_8 -► 1 
return_key 
type (D009_l [loop_8] ) 
type (D011_l [ loop_8 ] ) 
type (F01 8_1 [ loop_8] ) 
type (D01 3_1 [loop_8] ) 
return_key 
loop_8 = loop_8 + 1 
type (D00 9_1 [loop_8] ) 
type (D011_l [ loop_8 ] ) 
type (F018_1 [loop_8] ) 



return_key 

return_key 

return_key 

return_key 



return_key 
return_key 
ret u rr._key 



( 2 ) 



type (D013_l [loop_8] ) return_key 
home_line_key 
return_key 

menu_type ( " r" , "Pick an option: ") 
return_key 

menu_type ("p H ++spot_8, "Range or cell: 
return_key 

if loop_8 < count_8 goto write_8_A 
after_8 : 

spot_8 = spot_8 + 1 

* ★*★★★*★★*★**★★★★★★★*★★★★***★★*★★★★*★*★*★ 

'* Start writing data to view A 
#★*★**★★★★★★★★*★★**★*★★★*★**★**★*★★*★★★★★ 

home_l ine_key 
return__key 

menu_type ( "r" , "Pick an option: ") 
return_key 

menu_type { "ab5" , "Range or cell: ") 
return_key 
write_5 : 
loop_5 = 1 
spot_5 = 5 

' * Start out_rec_5 printing 
if hold_5 <> NUN goto after_5 
wri te_5_A : 
spot_5 = spot_5 + 1 
type ( " A "-t-+K001 [loop_5] ) return_key 
type (K002_L001 [ loop_5 ] ++" / "++L001 A [ loop 
type (" A,, + + L022 [loop_5] ) return_key 
type (" A "++A001 [loop_5] ) return_key 
type (" A "-t-+A0 01_2nd [loop_5] ) return_key 
type (ORIG_QTY [ loop_5 ] ) return_key 
type (L034 ( loop_5] ) return_key 
type (" A "++A012A [loop_5 ] ) return_key 
type ( " A "++C003E [loop_5] ) return_key 
type (L009 [ loop_5] ) return_key 
home_l ine_key 
return_key 

menu_type ( "r" , "Pick an option: ") 
return_key 

menu_type ( "ab"++spot_5, "Range or cell 
return_key 
1 oop_5 - loop_5 -r 1 
if loop_5 < count_5 goto write_5_A 
after_5 : 

» **************************************** 

'* Start writing data to view 5 
> ***************************************** 

home_line_key 

return_key 

menu_type ( "r" , "Pick an option: ") 
return_key 

menu_type ( "am4 ", "Range or cell: ") 
return_key 
wri te_9 : 

1 oop_9 = 1 
spot_9 = A 

' * Start out_rec_9 printing 

if hold_9 <> NIIN goto after_9 

write_9_A : 

spot_9 = spot_9 + 1 

type (K002_KC20 [loop_9] ) return_key 

type (K03 6 [ loop_9] ) return_key 

type ( " A "++K024_9 [loop_9] ) return_key 



type ( " A "++K025 [loop_9] ) return_key 
type (" a "-m-KC 22 [loop_9] ) return_key (2) 
type ( " A "++K02 6 [ loop_9] ) return_key (2) 

if (K026 [ 1 oop_9] = "BB") then typed") else typeC'O") return_key 
if (K02 6 [ 1 oop_9] = "BD") then type ("l”) else type CO") return_key 
home_l ine_key 
return_key 

menu_type ("r", "Pick an option: ") 
return_key 

menu_type ( "am"++spot_9 , "Range or cell: n ) 
return_key 
loop_9 = loop_9 + 1 
if loop_9 < count_9 goto write_9_A 
after_9: 

* it*********************************************************** 

'* Start writing data to view 6 

/a*********************************************************** 



home_l ine_key 
return_key 

menu_type ( "r " , "Pick an option: ") 
return_key 

menu_type ( n az5" , "Range or cell: " ) 
return_key 
write_6: 

1 ocp_6 = 1 
spot_6 = 5 

' * Start out_rec_6 printing 
if hold_6 <> NUN goto after_6 
write_6_A : 
spot_6 = spot_6 + 1 

type ( nA "++KC01_6 [loop_6] ) return_key 
type (K002_6 [loop_6] ) return_key 
type ( " A "++A012A_6 [ loop_6] ) return_key 
type (" A "++KC17_6 [loop_6] ) return_key 
type (K006_6 [ loop_6] ) return_key 
type (KOI 8_6 [ loop_6] ) return_key 
type (" A "++K024_6 [ loop_6] ) return_key 

if (K00l_6 [ loop_6] = "DGA" ) then type("l n ) else typeC'O" 
if (K001_6 [ loop_6] = "BPR") then type("l") else type("0") 

if (K001_6 [loop_6] = "101") then type("l") else typeC'O") 

if (K001_6 [ loop_6] = "301") then typed") else typeC'O") 

if (K001_6 [ loop_6] = "501") then typeC'l") else typeC'O") 

home_line_key 
return_key 

menu_type ( "r " , "Pick an option: ") 
return_key 

menu_type { "az "++spot_6, "Range or cell: ") 
return_key 
loop_6 = loop_6 + 1 



return_key 

return_key 

return_key 

return_key 

return_key 



if loop_6 < count_6 goto write_6_A 
after 6: 



# *close the open spreadsheet 
selection_line ( 2 , "C") 
menu_type ( "c" r "Clerk option: ") 
return_key 

goto pull 

'if line_count < 1 goto pull 
finish : 

close_f ile ("info/ ofilel.txt") 
close file ("info/of ile2 . txt" ) 



159 



close_file ( n info/ofile3.txt" ) 
close_f i le ("info/ofile5.txt" ) 
close_file ("info/ofile6 . txt " ) 
close_f ile ("info/ofile8. txt" ) 
close_file ("info/ofile9.txt" ) 
close_file { "inf o/ofi lelO . txt " ) 
close_file ("info/ofilell. txt") 
close_file ( n info/ofilel2. txt") 

add_ptas 

back_return_key (2) 
joey 

wait_while_busy () 
endcommand 



»*★★★***★*★****★**********★*★*******★*★*★********★*★***★***** 

'* Program to add the PTAS data to the snap spreadsheet 
'* built by snap_l. 

************************************************************* 

include "app_ids.h" 

include "errorcodes . h" 

include " f ield_read . h" 

include "filing. h" 

include "spreadsheet . h" 

include "windows. h" 

function add_ptas 

var ofl,of4,NIIN,D046D 

var A001 , A01 2_1 , A008B_1 , A021A_1 , A014_l , B04 6A, A01 2A_2 , CO 03E, A012_2 
var A008B_2 , A021 A_2 , A012A_3 , A012_3, A008B_3, A021A_3 , A01 4_3 , hold_4 
var count, count_4, loop_4, spot_4 , sum_spot , line_count 
var tmp, The_current_window 
open_file ("info/ofilel .txt", "r") 
open__file ("info/ofilel. txt", "r") 

count = 0 
Start_reading: 

of4 = read_f ile { " inf o/ofile4 . txt " ) 

D046D - subst r (of A , 1 , 9) 
next_niin : 

ofl = read_file ("info/ofilel .txt") 

NUN = substr (ofl , 1 , 9) 
if NUN - "000000000" goto jump 
if NUN <> D046D goto next_niin 
count = count +1 
'if count > 1 goto jump 



'********************************************,t*********************** 

' * START PULLING DATA FROM OUT-REC-4 

' * HOLD DATA IN PROGRAM FROM ALL PULLS UNTIL THE END. 
'****★**★************************************************************ 

out_rec_4 : 

count_4 = 1 

if D046D = NUN goto pull_4 
if D046D <> NUN goto next_niin 

next_l ine_4 : 

of4 = read_file ( "info/of ile4 . txt " ) 
count_4 = count_4 + 1 
D046D = subst r (of A , 1 , 9) 
if D046D <> NUN goto write_it 
pull_4: 

A001 [count_4 ] = substr (of A, 12, 3) 

A012_l [count_4 } - substr (of4, 15, 8) 
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A008B_1 [count_4] = subst r (of 4 , 23 , 8 ) 
A021A_1 [count_4] = subst r (of 4 , 31 , 7 ) 
A01 4_1 [ count _4 } = substr (of 4 , 38, 8) 
D04 6A [ count_4 ] = substr (of4 , 4 6, 5) 

A01 2A_2 [ count _4 ] = subst r (of 4 , 51 , 1 ) 
C003E [count_4 ] = substr (of 4 , 52 , 1 ) 
A012_2 [ count_4 ] - subst r (of4 , 53, 8 ) 
A008B_2 [count_4 ] = subst r (of 4 , 61 , 8 ) 
A021A_2 [ count _4 ] = substr (of 4 , 6 9, 7 ) 
A012A_3 [count_4 ] = substr (of 4 , 76, 1 ) 
A012_3 [count__4 ) = substr (of 4 , 77, 8 ) 
A008B_3 [count_4 ] = substr (of4 , 85, 8) 
A021A_3 [count_4 ] = subst r (of 4 , 93 , 7 ) 
A014_3 [count_4 ] = substr (of 4, 100, 8) 
bold_4 = D046D 
goto next_line_4 

wri te_it : 
open_SS : 

menu_type ( "e” , "Main menu option: ") 
return_key 

menu_type (NIIN++" ss"++" l", M Name: ” 
return_key ( 1 ) 
wait __whi le_busy ( ) 
tmp = CURRENT_WINDOW_NUM_() 
The_current_window = WINDOW_INFO (tmp) 
if The_current_wi ndow [WINDEX# APP_TYPE_] 

f *■*★*****•********•*•*»*★*******■*•** ******** 

' * Start writing data to view 7 
**********************-»****»************ 

home_line_key 

return_key 

menu_type ("r”, "Pick an option: ") 
return_key 

menu_type ( ”br3" , "Range or cell: ") 
return_key 
write_4 : 
loop_4 = 1 
spot_4 = 3 

* * Start out_rec_4 printing 
if hold_4 <> NUN goto after_4 
write_4_A : 
spot_4 = spot_4 + 1 
type ( ,,A "++A001 [loop_4] ) return_key 
type (A012_l [ loop_4 ] ) return_key 
type (A0083_l [ loop_4 ] ) return_key 
type (A02lA_l [ loop_4 ] ) return_key 
type (A014_l [loop_4 ] ) return_key 
type (B04 6A [ loop_4 ] ) return_key 
type (" A I") return_key 

type ( ” A ”++A012A_2 [ loop_4 } ) return_key 
type ( ,,A ” + + C00 3E [loop_4] ) return_key 
type (A012_2 [loop_4 ] ) return_key 
type ( A008B_2 [ loop_4 ] ) return_key 
type (A021A_2 [ loop_4 ] ) return_key 
type( nA |”) return_key 

type ( n A "++A012A_3 [ loop_4 ] ) return_key 
type (A012_3 [ loop_4 ] ) return_key 
type (A008B_3 [loop_4 ] ) return_key 
type (A021A_3 [ loop_4 ] ) return_key 
type (A01 4_3 [loop_4 ] ) return_key 
bome_line_key 
return_key 

menu_type ( " r " , "Pick an option: ") 



return_key 

menu_type ( "hr "++spot_4 , "Range or cell: ") 
return_key 
loop_4 = loop_4 + 1 



if loop_4 < count_4 goto write_4_A 
sum_spot = spot_4 - 1 
type ("TOTAL") return_key 
type ("+sum (bs3 . . bs n + + sum_spot + + " ) n ) 
type ("+sum(bt3. . bt "++ sum_spot++" ) n ) 
type ( n +sum (bu3 . . bu"++sum_spot++" ) " ) 
type ( "+sum (bv3 . . bv"++sum_spot++" ) " ) 
return_key 

type (" A I") return_key 
return_key (2) 

type ( " + sum (ca3 . . ca"++sum_spot++" ) " ) 
type ("+sum (cb3 . . cb"++sum_spot ++" ) n ) 
type ("+sum(cc3. . cc"++sum_spot++ n ) " ) 
type (" A |") return_key 
return_key 

type ( " + sum (cf 3 . . cf "++sum_spot++" ) " ) 
type ( " + sum (eg 3 . . cg" + + sum_spot++" ) " ) 
type ( " + sum (ch3 . . ch"->- + sum_spot + + " ) " ) 
type (" + sum (ci3 . . ci "++sum_spot ++" ) " ) 
after_4 : 

'♦close the open spreadsheet 
selection_line (2, "C") 
menu_type ( "c" , "Clerk option: ") 
return_key 

goto next_niin 
jump: 

close_f i le ("info/ofilel.txt") 
close_file ( "i nf o/of i le4 . t xt " ) 
endfunct ion 



return^key 

return_key 

return_key 

return_key 



return_key 

return_key 

return_key 



return_key 

return_key 

return_key 

return_key 



# »»»*****ww*»*»wirw*www»*irir*****ir**tr*ww'»r*»wlr'*'**w»»**w*-1r*»r»1rw*-<r 

'* Program to build the NSN Snapshot Document from the 
' * from the NSN Snapshot spreadsheet built by snap_l . 

* *******wwww*»**ww***»****»*w***w****lr*»»»»*»******'*->r*»*Tr»'*w* 

'include "app_ids.h M 
'include "errorcodes.h" 

'include " f iel d_read . h" 

'include "filing. h" 

'include "spreadsheet .h" 

'include "windows. h" 
function joey 

var ofl, NIIN,NIIN_2,D0 4 6D_1, D04 6D_2, DD4 6D_3, E08 9 
var tmp, The_current_window, count_ptas, check 

open_f ile ("info/ofilel.txt", n r") 

count_ptas = 0 
Start_reading : 

ofl = read_file ( "info/of ilel . txt") 

NUN = substr (of 1, 1, 9) 

DO 4 6D_1 = substr (ofl, 1, 2) 

D046D_2 = substr (of 1 , 3, 3) 

DO 4 6D_3 = substr (of 1 , 6, 4 ) 

E089 = substr (of 1 , 96, 1 ) 

NIIN_2 = DO 4 6 D_1 + + "-" + + DO 4 6D_2++ "-"++D04 6D_3 
count_ptas = count_ptas + 1 
if D046D_1 = "000000000" then goto bottom 
' if count_ptas > 1 goto bottom 
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on error goto build 
check = find_doc(NIIN_2,-l) 
error on error 
goto start_reading 

'★★★★★★★★★★★★it******************************'**'*************** 

'* Start building the DOC. 

#*★**★★*******■*****★******■***★★■***★***★***■*■*■***■**★•*****★*■*■*** 
build : 

menu_type ("e" , "Main menu option: ") 
return_key 

menu_type (NIIN_2 , "Name : ") 

menu_type (D046D_l++"-"++D04 6D_2++ " -"++D04 6D_3, "Name: ") 
return_key 
wai t_while_busy () 
tmp = CURRENT_WINDOW_NUM_() 

The_current_window = WINDOW_INFO (tmp) 

if The_current_window [WINDEX#APP_TYPE_] <> APP#MAIN_ goto start_reading 
return_key menu_type ("thesis", "Drawer : ") 
return_key 

menu_type ("data" , "Folder : ") 
return_key (2 ) 

menu_type ( "t ", "Pick a document type: ") 
return_key 

menu_type ( "model snapshot ", "Sty le guide/model document: ") 

return_key 

execute_key 

wait_whi le_busy () 

'* Now inside document writing to Document, 
type (NIIN_2) 
return_key 

selection_line (5, "E") 
menu_type ("i" , "Edits option: ") 
return_key 

menu_type ("i ", "Inset type option: " ) 
return_key 

menu_type (NIIN++ " ss 1", "Document name: " ) 
return_key 

menu_type ( "view l","View name: ") 
return_key (3) 
select ion_line (5, "E" ) 
menu_type ("i" , "Edits option: ") 
return_key 

menu_type ( "i" , "Inset type option: ") 
return_key 

menu_type (NIIN++ " ss 1", "Document name: ") 
return_key 

menu_type ("view 2", "View name: " ) 
return_key (3) 
selection_line (5, "E") 
menu_type ("i ", "Edits option: ") 
return_key 

menu_type ("i", "Inset type option: " ) 
return_key 

menu_type (NIIN++ " ss 1", "Document name: " ) 
return_key 

menu_type ("view 3", "View name: ") 
return_key (3) 
selection_line (5, "E") 
menu_type ( "i " , "Edit s option: ") 
return_key 

menu__type ( "i ", "Inset type option: " ) 
return_key 

menu_type (NIIN++ " ss 1", "Document name: ") 
return_key 
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menu_type ( "view 7", "View name: " ) 
return_key (3) 
selection_line (5 , "E" ) 
menu_type ("i ", "Edits option: " ) 
return_key 

menu_type ("i", "Inset type option: n ) 
return_key 

menu_type (NIIN++ n ss 1 ", "Document name: n ) 
return_key 

menu_type ("view 4", "View name: ") 
return_key (3) 
selection_line (5, "E") 
menu_type ("i", "Edits option: ") 
return__key 

menu_type ("i ", "Inset type option: ") 
return_key 

menu_type (NIIN++" ss 1", "Document name: ") 
return_key 

menu_type ("view 5", "View name: ") 

return_key (3) 

select ion_l ine (5, "E" ) 

menu_type ("i", "Edits option: " ) 

return_key 

menu_type ( "i" , "Inset type option: ") 
return_key 

menu_type (NIIN++" ss 1", "Document name: ") 
return_key 

menu_type ( "view 6", "View name: " ) 

return_key (2) 

selection_line (8, "C") 

menu_type ("ro", "Controls option: ") 

return_key 

select ion_l ine ( 8 , "C" ) 

menu_type ("ho", "Controls option: ") 

return_key 

selection_l ine ( 2 , "C") 
menu_type ("c" , "Clerk option: ") 
return_key 
goto start_reading 
bottom: 

close_file ("info/ofilel.txt") 
endfunct ion 

f**w*****w***************************»***************w*****x**************** 

'* Purges the old data from the spreadsheet. 
/*******•*********■***■*******■*■**********»****★*********•*******★*•*■******■******* 



function purge 

select ion_line (3, "M") 

menu_type ("m", "Pick an option: ") 

return_key 

menu_type ( "bl , gl , b3 , b5 . . b8 , d5 . . d8 , g5 . . g9, i5 . . i 9, bl 0 . . bll , dl 0 . . dl 1 , al 4 . . " , "Materi 
al: ") 

menu_type ("cl00,gl4. . il 00, nl . .n4,p2. . zl 00 , ab5 . . akl 0 0 , am4 . . avl 00 , az5 . . bk " , "Materi 
al: ") 

menu_type ("100, br3 . . cilOO" , "Material : " ) 
return_key 
wait_whi le_busy () 
home_l i ne_key 
type ("b") 
return_key 
endfunct ion 
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APPENDIX H 



INVENTORY MANAGEMENT MACROS 



command m - Main menu for Inventory management. 
Written by LT George Marentic 
Dec 1988 



Command re 


var strs 


* Array 


of Display strings. 


var result 


’ return 


of string from run menu 


do_aga in : 


strs - " 


(N) 


NSN Snapshot", 


" 


<R) 


Requisition Processing" 


" 


(B) 


NSN Notebook", 




(X) 


Exit Program", 



"Pick an option: " 

result - run_menu ( " Inventory Management", strs) 
result - upca se ( re suit ) 
if result - "N" n 
else if result - "R" rqn_process 
else if result - ”B” b 
else if result - "X" goto finish 
’ goto do_agam 
finish: 
endcommand 



command n - NSN snapshot extract macro 
Written by LT George Marentic 
Dec 1988 



command n 

var screen_l ’ Array of display strings 
var result ' Inputed NSN 
var NUN, home^du r , not_f ound 



do_again : 

screen 1 



" Enter the NIIN you need the Snapshot for*’, 
” Format 01-123-1234". 



” Requested NIIN: " 

result - run_menu ( "NSN Snapshot" , screen_l ) 
result - upca se ( result ) 
if result - " " goto do_again 
NIIN - result 
start : 

status_message ("Pulling your requested Snapshot") 
int errupt_key 
type ( "re" ) 

Execute_key 
Escape_key (5) 

Back_r eturn_key (2) 

menu_type ("e", "Main menu option: ") 
return_key 

menu_type (NI IN , "Name ■ ") 
return_key 
vait_vhile_busy ( ) 
on error goto bottom 
st atus_mes sage ("Snapshot is ready.") 
goto done 
bottom : 

statusmessage ( "NSN not found.") 
done : 

endcommand 



Command b NSN Notebook input and creation macro 

Written by LT George Marentic 
Dec 1988 



comjnand b 
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var 
va r 
var 
var 
var 
var 
var 
var 



strs, promptids_2, values_2, init_2, sta rt_here_2 , i , 
strs_l, da te_l , NUN, check, date, date_2 
strs_2, »trs_3, proroptid»_3, values_3, init_3, start 
strs_4, prompt ids_4 , values_4, init_4, start_here_4 

strs_5, promptids_5, values_5, init_5, st art_here_5 , 

9trs_6, promptids_6, values 6, init_6, start_here_6 

strs_7, promptids_7, values_7, init_7, start_here_7 

strs_8, proraptids_8, values_8, init_8, start_here_8 



result 
here_3 
data 5 



do_again : 

strs - "", 

"Please enter the NUN for the STOCK NUMBER NOTEBOOK ”, 
"that you want add to or read information about. ", 



Format 01-123-123 4", 



" Requested NIIN: " 

result - run_menu ("STOCK NUMBER NOTEBOOK" , strs ) 
result - upca se ( result ) 
if result - " " goto do_again 
NIIN - result 



starts 

strs 1 - 



"Please select the function you need. ", 



" 


(V) 


View the Stock Number Notebook", 


" 


(A) 


Alternate NIIN Information ", 


" 


(E) 


Contract Expedite Information ", 


" 


(R) 


Contract Reconsignment Information 


" 


(T) 


Contract Termination Information ”, 


" 


<P) 


Points of Contact for this NIIN ", 


" 


(C) 


Pending Change Information ", 


" 


(N) 


Misc Notes ( Remarks ”, 


” 


(X) 


Exit this Program ", 



"Pick an option: " 

problem : 

result - run_menu { "NOTEBOOK Input 
result - upca se (result) 
if result - "A" goto ab 



else if result 
else if result 
else if result 
else if result 
else if result 
else if result 
else if result 
else if result 



"V" 
" E" 



goto vb 
goto eb 



- "R” goto rb 

- "T" goto tb 
* "P" goto pb 

- ”C” goto cb 

- "N" goto nb 

- "X" goto finish 



Selection", strs_l) 



} 



ab : 



if (result <> "A") 
(result <> "T") 
(result <> "N") 
str s_l [1 ] - "Not 
goto problem 



or (result <> ”E") 
or (result <> "P") 
or (result <> "X"){ 
a valid selection! 



or (result <> "R") 
or (result <> "C") 

Please try again. 



or 

or 



strs 2 - 



" Alternate NIIN Information ", 



" Please input alternate NIIN information for "++NIIN, 



"Alt ♦ 1 : ”, 

"Alt ♦ 2 : ", 

"Alt #3: ", 

"Alt #4: ", 

"Alt #5: ", 

"Alt #6: ", 

"Hit return for blank fields" 
prorcptids_2 - 5,6,7,6,9,10 
start_here_2 - 0 
values_2 - "" 
init_2 - true 
problem_2 : 

values_2 - run_nienu ("Alternate NIIN 

Information", strs_2, values_2, imt_2, prompt id s_2, start_here_2) 
IF I S_NULL (values 2) BEGIN 

STATUS_MESSAGE ( " V’Notebook \ ” program exited ") 

EXIT 
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END 

init_2 - false 

open_f ile (NIIN++"_Notebook" , "a" ) 
date - ’’date" 

dat e_t - SHELL_COMMAND (date ) 

* date_2 - TRIM (date_l) 

wnte_file (NI IN* + "_Notebook", "Alternate NUN Information”) 

write_f ile (Nil N + + "_Not ebook” , date_l [0 ) ) 

write_f il e (NI IN++ "_Not ebook" . va lues_2 [ 0 ) ) 

write_file (NIIN++"_Notebook",values_2 [1] ) 

write_f ile (NIIN++ "_N ot ebook", value s_2[2]) 

write_file(NI IN + + "_Not ebook" , values _2 [3] ) 

wr it e_ file (NIIN+*"_Not ebook”, values_2 [4 J ) 

write_f ile ( N 1 1 N + ♦ "_Not ebook" , values_2 ( 5 J ) 

write_file (NI IN++"_Notebook" , " ") 

cl ose_f ile (NIIN++"_Notebook") 

goto start 

eb: 

st r s_3 - t 

" Contract Expedite Information ", 

" Please input Contract Expedite Information for "++NIIN 

"Contract Number ; ", 

"Message/Letter: ", 

"Reply Date : ", 

"QTY : ", 

"CLIN : ", 

"Received Delivery: ", 

"Use return key for blank fields" 
promptids_3 - 5,6,7,8,9.10 
start_here_3 - 0 
values_3 - "" 
init_3 - true 
problem_3 : 

values_3 - run_menu ("Contract Expedite 

Information", strs_3, values _3,init_3, prompt ids_3, sta rt_her e_3 ) 

IF IS_NULL (values_3 ) BEGIN 

STATUS_MESSAGE ( " \ "Not ebook\ " program exited.") 

EXIT 

END 

imt_3 - false 

°pen_f 1 1 e ( NI I N + + "_Not ebook " , "a" ) 
date - "date" 

dat e_l - SHELL_COM*KAND (date) 

wnte_file(NIIN* + "_Noteboo)i", "Contract Expedite Information") 
writ e_ file (NIIN++"_Notebook", date_l ( 0 ) ) 

write_file(NIIN + *"_Notebook". "Contract Number : " va lues_3 [ C ] ) 

wnte_file(NI IN*-»-"_Notebook", "Message/Letter : "*+values_3 [ 1 ) ) 

wr ite_f i le ( N I I N + +”_Not ebook" , "Reply Date : "++va lues_3 [ 2 ] ) 

write_file<NIIN4+"_Notebook". "QTY : "++values_3 [3 ] ) 

writ e_f i le ( N 1 1 N * + "_Not ebook " , "CLIN : "♦ rvalue s_3 [ 4 ] ) 

writ e_f i 1 e (NI IN** "_ Notebook", "Received Delivery: "++values_3(SJ) 

writ e_ file(NIIN 4 + ”_Not ebook" , " " ) 

close_file (NI IN+«-"_Notebook") 

goto start 



er ror _r epor t : 

status_message ("This is not a valid NUN.'”) 
goto do_again 
vb : 

int er rupt_key 

menu_type ("m", "Interrupt option: ") 
r et urr._key 
escape_key ( 7 ) 
back_return_key (2 ) 

menu_type ("u", "Main menu option: " ) 
return_key 

rcenu_type ( "a " , "Ut ilit le s option; ") 
return_key 

rcenu_type ( "a " , "Asci i Editor option: ") 
return_key 

menu_type (NI IN+ + "_Notebook" , "Name: ") 
return_key 
goto finish 
rb : 
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strs 4 - 



" Contract Reconsignment Information ", 

M Please input Contract Reconsignment Information for "++NIIN , 



"Contract Number ; ”, 

"Message/Letter: ”, 

"From Destination : ", 

"To Document Number : ”, 

"Est Devlivery Date ; ”, 

"QTY : ", 

"Use return key for blank fields” 
promptids_4 - 5,6,7,8,9,10 
start_here_4 - 0 
values_4 - 
init_4 - true 
pr oblem_4 : 

values_4 - run_menu ("Contract Reconsignment 

Information", strs_4, values_4 , init_4 . prompt id s_4 , start_here_4 ) 

IF I S_NULL (valuesj) BEGIN 

STATUS_MESSAGE ( " \ "Not ebook\” program exited.") 

EXIT 

END 

init_4 - false 

open_file (N 1 1 N+ ♦"^Notebook , "a") 
date - "date" 

da t e_l - SHELL_COKKAND (date) 

write_file (NI IN++"_Notebook", "Contract Expedite Information") 
writ e_ file (NI IN + *”_Notebook" , date_l (0] ) 

write_file ( N 1 1 N + + "_Not ebook” , "Contract Number : "+ + values_4 [0] ) 
write_file (NI IN-*- + ''_Notebook", "Message /Letter : ”++values_4 [ 1 ) ) 

writ e_f i le (NI I N + + ”_Not ebook” , "From Destination ; ”+«values_4 [2] ) 
vrite_file (NI lN++"_Notebook", "To Document Number : "+ +va lues_4 [ 3 ] ) 
vrite^file (NI IN++"_Notebook", "Est Delivery Date : "++values_4 [4 ] ) 
write_file (NIIN++”_Notebook", "Qty: "++values_4 (5] ) 
vrite_file(NI IN++”_Notebook”, " ”) 
close_file(NI lN++”_Not ebook” ) 
goto start 

tb: 



strs 5 - 



" Contract Terminations Information ”, 



*' Please Input Contract Termination Information for "++NIIN , 

"Contract Number : ", 

"Termination Date: ", 

"Terminated (Y or N) : ", 

"Original Quantity Due : ”, 

"Terminated Quantity : ”, 

"Balance Due : ", 

"Use return key for blank fields" 
promptids_5 • 5,6,7,8,9,10 
start_here_5 - C 
values_5 - "” 
init_5 - true 
prcblem_5 : 

vaiues_5 - run_menu ("Contract Termination 

Information", strs_5,values_5, imt_5, promptids_5, start_here_5 ) 

IF I S_NULL (values_5) BEGIN 

STATU S_MESSAGE ( " \ "Not ebook\ " program exited.") 

EXIT 

END 

init_5 - false 

open_file(NI IN+^"_Notebook", "a") 
date - "date" 

dat e_l - SHELL_COMMAND (date) 

wnte_file(NI iN++"_Not ebook" , "Contract Termination Information") 
write_f ile (NI I N+ + "^Notebook" . date_l [0] ) 

write_file (NI IN++"_Notebook”, "Contract Number : "++values 5(0]) 
write_file(NHN** "_Not ebook" ."Termination Date: "++values_5[l]) 
values_5[2] - upca se (values_5 [2 ] ) 

if values_5[2) - "Y" data_5 - "Contract has been terminated." 
else data_5 - "Contract has not yet been terminated." 
writ e_ file (NIIN++ "_Not ebook" , data 5) 

w rit e_f ile(NIIN + "» "_Not ebook ” , "Original Quantity Due : "♦ +values_5 [ 3 ] ) 
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write^file (N I IN + "_Not ebook ", "Terminated Quantity : ” + + value s_5 [ 4 ] ) 

writ e_file(NIIN++"_Note book”, "Balance Due : " ♦ + value s_S [ 5 ] ) 

writ e_ file ( N I lN++"_Notebook", ” ") 

close_file (N 1 1 N + + "_Not ebook" ) 

goto start 



pb: 

*trs_6 - 

” Points of Contact”, 

” Please input Points of contact for:" + + NHN , 

”Last Name : ”, 

“First Name: ”, 

"Company / Command: ”, 

"Code / Division : ", 

"Commerical phone number : ”, 

"Autovon phone number : ", 

"Use return key for blank fields”, 

"Use the Misc Notes form for mailing addresses" 
promptids_6 - 5,6,7,8,9,10 
start_here_6 - 0 
values_6 - "" 
init_6 - true 
pr oblem_6 : 

values_6 - run_menu ("Point s of Contact 

Information", strs_6, values_6, init_6, promptids_6, start_here_6) 

IF I S_NU LL (values_6) BEGIN 

STATUS_MESSAGE (” \ "Not ebook \ " program exited.") 

EXIT 

END 

init_6 - false 

open_f i le ( NI I N + + "_Not ebook" , "a ” ) 
date - "date" 

da te_l - SHELL_COMHAND (date) 

write_file (N I I N+ +"_Not ebook" , "Points of Contacts") 
write_file (NIIN++ "_Not ebook", date_l [0] ) 

writ e_f ile < N I IN* + "_Not ebook" , "Name : "+♦ value s_6 ( 0 ]♦+" , " + + values_6 (1 3 ) 

write_file {NIIN + +"_Notebook", "Company : ”++values_6 [2 ] ) 

writ e_f l le ( NI I N + + "_Not ebook " , "Code / Division : "^ + values_6 [3] ) 

write_file (NI I N* * "_Not ebook" , "Comm : ”+*values_6 [ A ] ) 

write_file (NI IN + + "_Notebook". "Autovon : + va lues_6 [ 5 ] ) 

write_file (NIIN++"_Notebook", " ") 

close_file(NIIN + -*-"_Not ebook") 

goto start 



cb : 

strs_7 - "”, 

" Pending Change Information ", 

" Please input pending change information for "++NIIN, 

"line # 1 : ", 

"line #2: ", 

"line #3: ", 

"line #4: ", 

"line 4 5 : ", 

"line *6: ", 

"Hit return for blank fields” 
promptids_7 - 5,6,7,8,9,10 
start_here_7 - 0 
values_7 - "" 
init_7 - true 
problem_7 : 

va lue s_7 - run_menu ("Pending Change 

Information", strs_7, values_7, init_7, prompt id s_7 , start _he re_7 ) 

IF IS^NULL (values_7) BEGIN 

STATUS_MESSAGE (" \ " Not ebook \ " program exited.") 

EXIT 

END 

init_7 - false 

open_file (Nl IN* +"_Not ebook " , "a") 
date - "date" 

dat e_i - SHELL_COHMAND (date) 

’ date_2 - TRIM (date 1) 
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write_file (NI IN + + ”_Notebook" , "Pending Change Information”) 

write_file (NIIN++"_Notebook", date_l [0] ) 

write_f ile ( N 1 1 N + + "_Not ebook" .value s_7 { 0] ) 

write_f ile <NIIN++"_Notebook", value s_7 [ 1 ] ) 

writ e_f i le ( NI I N + ”_Not ebook”, value s_7 [ 2 ] ) 

write_file (N 1 1 N + + ”_Not ebook" , value s_7 [3] ) 

write_f ile (NI iN++”_Not ebook", value s_7 { <4 ] ) 

writ e_file(NIIN++"_Noteb oo )c" .value s_7 [ 5 ) ) 

write_f ile (NI IN++"_Notebook" , ” ”) 

cloae_f ile (NI IN + + "^_Notebook" ) 

goto start 

nb : 

st r s_8 - 

” Misc Notes « Remarks ", 

" Please input Misc Notes i Remarks for "++NIIN, 

"line #1: ", 

"line #2: ", 

"line # 3 : ", 

"line #4 : ", 

"line #5: ", 

"line *6: ", 

"Hit return for blank fields" 
promptids_8 - 5,6,7,8,9,10 
start_here_7 - 0 
values_8 - "" 
init_8 - true 
problem_8 : 

values_8 - run_roenu ( "Mi sc Notes i Remarks", 
strs_8, value s_8 , init_8, promptids_8, s ta r t_he re_8 ) 

IF IS_NULL (values_8 ) BEGIN 

STATUS_MESSAGE ( " \ " Not e boo k\ " program exited.") 

EXIT 

END 

imt_8 - false 

open_file(NI IN + + ”_Not ebook" , "a " ) 
date - "date" 

date_l - SHELL_COMKAND (date) 

' date_2 - TRIM (date_l) 

write_f ile (NI I N++ "_Not ebook" , "Misc Notes < Remarks”) 

write_f ile (NIIN++"_Notebook”, date_l [ 0] ) 

writ e_f ile (N I IN++ "_Not ebook" , values_8 [0] ) 

writ e_ file ( N 1 1 N + + "^Notebook" , value s_8 [ 1 ] ) 

wnte_fils(NIIN + + "_Notebook",values_8[2]) 

write_f ile ( N 1 1 N ♦ + "_Not ebook" , value s_8 [3] ) 

writ e_ file (NI IN++"_Notebook". values_8 [4 ] ) 

write_file (NIIN++"_Notebook",values_8 (5] ) 

wnte_file (NI IN -r*"_Not ebook" . " ") 

close_file(NIIN-*- + "_Not ebook" ) 

goto start 

finish : 
end command 
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